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APPENDTX 

CONTINUATION-IN-PART APPLICATION 



entitled: MEDICAL SYSTEM ARCHITECTURE BASED ON MICROSOFT OLE/OCX AND 
AUTOMATION OR, RESPECTIVELY, ATOMIC 



1 Medical Software Architecture based on a 3-tier component model 
and asynchrony RemoteControlComponent to prevent blocking 
User Interfaces 

This paper gives a use case example for a proposed Software Architecture concept which 
guarantees asynchron communication between software parts totally implemented as 
components based on standards like SOFTWARE IC> ATOMIC or OCX. 
A fundamental part besides of the architecture concept is a RemoteControlComponent which 
guarantees non-blocking beaviour. 

1.1 RemoteControlComponentOCX Responsibilies 

• Send/Retrieve stringified data as key/value pairs to/from backend components 
(with asynchrony command channel and multiple replies). 

• Retrieve update event changes initiated by the backends business logic (read-only 
ATOMIC event channel per command channel. 

• Send/Retrieve ATOMIC events on arbitrary event channels. 

• Inbuilt GenericMain ability for the containerware e.g. load components, dispatch 
ATOMIC events & commands. 

The RemoteControlComponentOCX class collaborates with the ATOMIC standard classes to 
attach to Application and Modality channels or to the command handling system that 
implements proxies,command objects and returns. It runs typically within the context of a 
MacroOCX as a non- visual MicroOCX all dispatched via a generic CapGM frontend container 
executable. In case that a different 3-rd-party container is used, the 
RemoteControlComponentOCX can be switched into a mode where it is able to do all 
necessary dispatching (behaving like a CapGM without a GUI) in addition to its other roles. 

A generalized RemoteControlComponentOCX is depicted in the figure below, along with the 
general User Interface and Backend objects that it collaborates with. The 
RemoteControlComponentOCX uses the Command-, Proxy- and CommandMediator- Design 
Patterns. 

The picture below shows the architecture. In this case the UI is connected to a controller component mediated via 
the help of the RemoteControlComponentOCX. The controller component is configured component which can 
run even in generic Container executable. The controller could then connect to a model component(s) and deal 
with the proxies and returns as well as AT event channels bound to these models. Each of these components are 
allowed to run all within individual containers or grouped altogether and rurining within a single container. This 
means, that the execution architecture is totally configurable and not fixed at configuration but configurable even 
at runtime. 
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1.2 User Interface initiated asynchrony command communication to FSM Controller Component 

These are the general steps when a User Interface Component initiates the client/server 
communication to the system: 

1 . User Interface code makes a request for information via the OLE method interface on 
the RemoteControlComponentOCX. 

2. The logic in the RemoteControlComponentOCX determines using a Command 
Mediator that executes a Proxy to retrieve the data, e.g. in asynchronous mode. 

3. The thread of control calling the RemoteControlComponentOCX returns to the User 
Interface code. 

4. The Command Object in the backend component uses its logic to gather the requested 
data. 

5. The Command Object in the backend fills the Return Object, and calls its reply() 
method, to send the data back to the RemoteControlComponentOCX. 

6. The Return Object tells the Command Mediator in the RemoteControlComponentOCX 
that the data has arrived. 

7. The Command Mediator sends an OLE event to the User Interface code to alert it that 
data has arrived. 

8. The User Interface Code may retrieve the actual data values as parameters to the OLE 
event call, or may call an accessor function on the RemoteControlComponentOCX to 
retrieve the data. 



9. The User Interface code updates its presentation logic. 

1.3 Controller initiated asynchrony c/s command communication to User Interface 

In this generalized scenario, the data in the backend has changed, and the User Interface is 
expected to update and to reflect the changes. 

1 . Some outside force changes data/state in a controller component. 

2. The controller component sends an ATOMIC event (with the inbuilt update channel) to 
the RemoteControlComponentOCX. 

3. The RemoteControlComponentOCX receives the ATOMIC event and passes it to the 
Command Mediator. 

4. The Command Mediator sends an OLE event to the User Interface code indicating the 
data change. 

5. If the OLE event included the data as parameter, the UI code may use that data to 
update its presentation. Otherwise, the User Interface code follows the same data 
retrieval steps as in the first scenario above. 

1.4 Event Propagation 

These are the general steps when a User Interface Component participates on the ATOMIC 
Event communication subsystem: 

1 . User Interface code makes a request for information via the OLE method interface on 
the RemoteControlComponentOCX to initialize dispatching subsystem (only when it is 
not running within a CapGM GenericMain executable, e.g. in 3-rd-party executable). 

2. User Interface code makes a request for information via the OLE method interface on 
the RemoteControlComponentOCX to create an event channel with a stringified 
pattern (see ATOMIC standard). 

3 . The logic in the RemoteControlComponentOCX determines using an Event Mediator 
that creates an ATOMIC event channel. 

4. The thread of control in the RemoteControlComponentOCX returns to the User 
Interface code. 

5. User Interface code makes a request for information via the OLE method interface on 
the RemoteControlComponentOCX to send an event to a previously created channel 
via supplying a stringified event. 

6. Whenever the Event Mediator within the RemoteControlComponentOCX logic 
receives an event belonging to the same stringified channel pattern it sends an OLE 
event to the User Interface code indicating that an ATOMIC event has arrived. 



The following chapter offers a detailed description of the OLE Automation interface the 
RemoteControlComponentOCX provides as API to the user. Additionally the backend 
consumer API will be explained. As the picture above is showing, the Asynchron 
Communication Component consists of two parts, a frontend part (the 



RernoteControlComponentOCX) and a backend part (the Consumer, typically the 
KeyValueCO consumer object). 



1.5 RemoteControlComponentOCX API 

The chapter descripes how the RemoteControlComponentOCX will be used on frontend and 
on backend site. When we speak from the RemoteControlComponentOCX we typically mean 
both parts, the RemoteControlComponentOCX itself (frontend) and the consumer class (the 
backend). 

1.5.1 RemoteControlComponentOCX API - Frontend OLE Automation Interface 

The RemoteControlComponentOCX operates internally in various modes according to the 
automation methods used in order to switch into a certain mode. The mode column in the table 
below refers exactly to these modes. The modes offered are the following: 



Description of OLE Automation Methods and OLE Automation Events: 



Automation-Method 


Description 


Mode 


BSTR loadCommandMediator(BSTR sName) 


SName specifies the name of the 
CommandMediator to be loaded. The 
method return an id which does 
unique identify this laoded 
CommandMedaitor (CM) instance, 
and which should be used to refer to 
this CommandMediator instance. 
This call can be made multiple times 
from within an execution unit, even 
with the same sName. Each call 
creates a new separate channel to a 
backend component's command 
consumer peer. 


All modes 


BSTR unloadCommandMediator (BSTR sID) 


See method above, just for unloading 
a specific CommandMediator 
instance. 


All modes 


BSTR setCurrentCommandMediator (BSTR sID) 


The sid does specify the CM instance 
which will then be used for further 
calls. 


All modes 


BSTR getChannelName (BSTR sID) 


This method return the nametag for 
the in-build update event channel 


All modes 


BSTR callCustomCMMethod (BSTR sID, BSTR sMethod, 
BSTR sParams) 


This method does directly invoke a 
method at the CM interface 


All modes 


BSTR callProxyMethod (BSTR sID, BSTR sMethod, BSTR 
sParams) 


This method does directly invoke a 
method at the in-build proxy of the 
selected CM. "SetNameTag" is the 
only sMethod parameter which 


All modes 





should be used for now. 




BSTR callReturnMethod (BSTR sID, BSTR sMethod, BSTR 
sParams) 


Method to directly invoke a method 
at the in-build return of the selected 
CM 


All modes 


boolean setChannelName (BSTR sID, BSTR sName) 


The sid selects the proper CM and set 
the name tag of the inbuild AT event 
channel. This channel is used for 
update events, which are initiated by 
the server. This channel is a oneway 
channel from the server to the client 
only! 


All modes 


boolean setNameTag (BSTR sID, BSTR tag) 


This method sets the nametag of the 
communication framework (proxy, 
return and command object). This is 
necessary if more than one command 
is running within the application. 


All modes 


void proxyAddKeyValue (BSTR sID, BSTR key, BSTR value) 


This method adds a new key value 
pair to the key value list of the proxy. 


All modes 


void proxyClearKeyValueList (BSTR sID) 


Clears the key-value list of the proxy. 
This method should be called before 
a new request to the backend is set up 
via calling proxyAddKeyValue 
multiple times.. 


All modes 


void returnSetKeyValueToFirst (BSTR sID) 


Sets the pointer to the beginning of 
the key- value list within the return. 
Typically used on the client side 
when a return event has been fired 
and the result key- value pairs have to 
be processed, and after processing 
one returnGetNextKeyValue should 
be called later on. 


All modes 


boolean returnGetNextKeyValue (BSTR sID) 


Retrieves the next key- value pair of 
the key- value list of the return object. 
The retrieved value and key are 
stored internally and you can query 
them with the following two 
methods. 


All modes 


BSTR returnGetCurrentKey (BSTR sID) 


See above 


All modes 


BSTR returnGetCurrentValue (BSTR sID) 


See above 


All modes 


boolean returnFindFirst (BSTR sID, BSTR key) 


This method searches the key value 
list until it detetcs the first occurrence 
of the specified key. 


All modes 


boolean returnFindNext (BSTR sID, BSTR key) 


Similar to the above method but just 
continious the search throgh the key- 
value list. 


All modes 


BSTR WaitUpdateEvent (BSTR sID) 


Get the next update event out of the 
queue. In this case update event 
queueing typically has been switched 
on. 


C 


void QueueUpdateEvent (BSTR sID, BSTR qup, long anz) 


Enables that the update events which 
arrive in the ItfOcx are internally 
queued, as a consequence there is not 
a OLE event fired for each mcoming 
update event 


C 


void initDispatch (BSTR svc) 


This does switch on the container 


B 





mode, one has to specify the 
configuration file which contains the 
components the vbgmaincompocx 

has to load then. Please register the 
VBOmamCompOCX when using the 
InterfaeeOCX in initDtspatch mode 




void exitDispatch () 


This method does signal the leavage 
of the container mode 


B 


void QueueReturnEvent (BSTR sID, BSTR qup, long anz) 


Thius method enables the 
xtemoiev^onxroi^omponeniL^^A- 10 
queu up internally the arriving key 
value pairs. Please note, that if this mode is 
enabled, the packed mode for the key/value 
reimn pairs is also necessary and enabled as 
well. Its means, that the event key/vat pairs are 
all coming in a single stt ing f 


C 


BSTR WaitReturnEvent (BSTR sID) 


Get the next key value pair out of the 
intrnal queue. . In this case return 
event queueing typically has been 
switched on. 


C 


void packReturnEvent (boolean mode) 


Get all the internally queued key 
value pairs of the return and pack 
them into one string , which gets then 
delivered via the ReurrnEventData 
Event to the user. This could be 
helpful on environments which 
cannot call back into the 
RemoteControlComponentOCX 
within the event firing method. 


C 


boolean initATEvtChan (BSTR ChanName) 


In addition to the inbuild oneway AT- 
event channel of the CM, there can be 
additional arbitrary AT event 
channels be created. This call is 
forwarded to the EventMediator 
which does manage these channels. 
You should specify the string you 
want inclusive delimiters for 
hierarchies etc. There is no 
application or modality pattern added 
internally. 


D 


boolean exitATEvtChan (BSTR ChanName) 


Refere the channel you want to be 
destroyed. 


D 


void QueueATEvtChan (BSTR ChanName, BSTR qup, long 
anz) 


Does queue up the incomming AT 
events internally until a number of 
anz events. All events not consumed 
when a overrun occurs are lost. 


C 


BSTR WaitAtEvtChan (BSTR ChanName) 


Get the next AT event from the queue 
with the specified AT channel 
pattern. The pattern is not bound to a 
component pointer internally. This 
call does not block. It is intended for 
environments that are not able to 
receive events. In this case AT event 
queueing typically has been switched 
on. 


C 



boolean sndAtEvtChan (BSTR ChanName, BSTR evt) 


Send the event-string evt to the 
channel ChanName 


D 


boolean cancelCmdld (BSTR sID, BSTR cID) 


Cancel a command in channel sid 
with the command id cid. The 
backend has react with a call to 
isTerminated() 


All modes 


BSTR executeEx (BSTR sID) 


Execute a command in channel sid in 
async callback mode. The command 
id cid is returned. 


All modes 


BSTR executeModeEx (BSTR sDD, BSTR mode) 


Execute a command in channel sid in 
a specified mode. The command id 
cid is returned. 
CALLBACK MODE, 
FUTURE MODE or 
ONEWAY MODE are allowed 


All modes 


boolean suspendCmdld (BSTR sID, BSTR cID) 


Suspend a command in channel sid 
with the command id cid. The 
backend has react with a call to 
isPause(true) 


All modes 


boolean resumeCmdld (BSTR sID, BSTR cID) 


Resume a command in channel sid 
with the command id cid. The 
backend has react with a call to 
isPause(false) 


All modes 


boolean continueCmdld (BSTR sID, BSTR cID, BSTR res) 


Continue a command in channel sid 
with the command id cid and hand 
out a user result res. The backend has 
called co->suspend() previously to 
ask the user for more information 
(e.g. long running job is missing 
resources and backend tries to ask 
how to proceed). 


All modes 


boolean WaitCmdld (BSTR sID, BSTR cID, long timeoutsec) 


Wait synchron for a command in 
channel sid with the command id cid 
for up to timeout seconds. If the 
timeout value is we are waiting 
until a reply comes in. This API 
makes only sense when the execute 
command was activated in 
FUTURE_MODE for the given cID. 


All modes 


boolean DestroyCmdld (BSTR sID, BSTR cID) 


Destroy the return object internally 
kept within the 

RemoteControlComponentOCX via 
the given command id cID. This 
maKcs sense 101 miuluuwii scenarios 
in combination with a following 
cancelCmdld in order to destroy 
queued objects on an immediate 
shutdown request. 


All modes 


Automation-Events 


Description 




void ReturnEvent (BSTR sID) 


This automation event gets raised 
when a return object does arrive 
internally. You get the id of the CM 
delivered. Within the event handler 
one can refer to the right Cm and 
access the key value pairs of the 


All Modes 





retrun object. 




void UpdateEvent (BSTR sID, BSTR sMessage) 


This automation event gets raised 
when the backend does send an AT 
event on the in-build EventChannel 


A 


void ReturnEventData (BSTR sID, BSTR sMessage) 


OLE-Event which gets delivered, 
when a return arrives, but in contrast 
to the FireReturnEvent all the key- 
value pairs are contained in the data 
string. For the seperation tokens used 
within the data string please refer to 
the packReturnEvent method 


C 


void ATEvtChan (BSTR ChanName, BSTR evt) 


This automation event gets raised 
when on one of your own registered 
AT channels an At event is received. 
The event does deliver the naem of 
the channel and the event string 


D 



An example how the OLE Automation APIs of the frontend has to be used is shown below. 
Only the RemoteControlComponentOCX relevant methods are shown. The examples are from 
a HTML page running within HTML. 
The UI looks as shown on the figure below. 
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The page starts with some HTML header statements. 



<html> 
<head> 

<body onload="Calc_Onload () " onunload="Calc_OnUnload ( ) " background = 

"E : \src\calcasp5\calcasp5_Local\images\syngo j>pt_background . jpg" > 

Afterwards a very thin UI part is following in HTML as well. 

<HR> 

<p><FONT color=red><STRONG>WebBrowser Enableded Asynchron 1 : 1 
Client/Server Communication Pattern</STRONGx/FONTx/p> 
<p>< input name =" Text 1" size="9" value="3" > 

<input type= "button" value="Add" name = "Add" onclick= "Add_Click ( ) " 
></p> 

<p>< input name= n Text2" size="9" value="2" > 
</p> 



<p>< input name =" Text 3 11 size="9" > 

<input type= "button" value= "Cancel " name=" Cancel" 

onclick="Cancel_Click () " > 
<input type= "button" value=" Suspend" name=" Suspend" 

one lick="Suspend_C lick () " > 
< input type= "button" value=" Resume" name=" Suspend" 

onclick="Resume__Click () " > 

</p> 
<HR> 

<PxFONT color=red><STRONG>WebBrowser Enableded Asynchron n:m 

Event Propagation Communication Pattern</ STRONGx/FONTx /P> 

<Px INPUT name=sendChanTxt size= n 24" readOnly> Channnel name</P> 

<P>< INPUT type=button size="100" onclick= "SendChanEvt_Click ( ) " value="Send 

Event with Channel Name" name=SendEvt ></P> 
<P>< INPUT name=sendEvtTxt size="24"> Event send to Channel name</P> 
<P>< INPUT name=rcvdEvtTxt size="56"> Event from Channel name</P> 
<HR> 

The RemoteControlComponentOCX has to be embedded on a HTML page via the object tag 
as shown below . . . 

<OBJECT classid=clsid:B7AFED6F-E88 6-llD2-A3E6-0004AC963A01 
id=RemoteControlComponentOCXl xPARAM NAME= "_Ver s ion " 
VALUE=" 6553 6 "xPARAM NAME="_ExtentX" VALUE= " 2 646 " xPARAM 
NAME = " _Ex t ent Y " VALUE=" 1323 " xPARAM NAME= "__StockPropS " VALUE="0"> 

</OBJECT> 

The RemoteControlComponentOCX fires OLE events which can be sinked on the HTML 
page as shown below . . . 

< script LANGUAGE= "JAVASCRIPT" FOR= "RemoteControlComponentOCXl " 
EVENT="ReturnEvent (ID) "> 

< i -- 

returnEvent (ID) 

- - > 

</script> 
<script 

LANGUAGE = " JAVASCRIPT " FOR= "RemoteControlComponentOCXl " 
EVENT = "UpdateEvent ( ID , sUpdateParam) " > 

< ! -- 

updateEvent ( ID , sUpdateParam) 

- - > 

</ script> 
<script 

LANGUAGE = 11 JAVASCRIPT " FOR= "RemoteControlComponentOCXl " 
EVENT= "ATEvtChan (chan, evt) "> 

< ! - - 

ATEvtChan ( chan , evt ) 

- -> 

</script> 
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Other unimportant GUI HTML primitives (like object tags with a lot of params) are ignored 
for now, but the action handlers finally activated by these UI items are shown within some 
script code below . . . 

<SCRIPT LANGUAGE = "JavaScript 11 > 
var ssid 
var key 
var val 
var keyl 
var vail 
var retb 
var x 

As soon as the backend talks to the frontend, the RemoteControlComponentOCX fires OLE 
Automation events which will be forwarded to the two methods below (see also the object tag 
above). 

function returnEvent (ID) 

{ 

RemoteControlComponentOCXl_ReturnEvent ( ID ) 

} 

function updateEvent ( ID, sparam) 

{ 

RemoteControlComponentOCXl_UpdateEvent (ID , sparam ) 

} 

When any component fires an AT event to a channel we pattern we used as well, the OLE 
Automation event below is fired. 

function ATEvtChan (chan , evt) 

{ 

RemoteControlComponentOCXl_ATEvtChan (chan, evt) 

} 

As soon as the UI will be loaded the RemoteControlComponentOCX has to be initialized 
accordingly, and dispatching has to be switched on when not running within a syngo based 
CapGM executable (which does AT needed dispatching automatically), but in a 3-rd-party 
executable, for instance. This is shown in the code piece below. The call to 
LoadCommandMediator specifies a unique command mediator module via a string and gets 
back an identifier (ssid) for the internally created command mediator instance. This id has to 
be used for all calls to the RemoteControlComponentOCX later on which are referring to this 
channel. The call to SetChannelName specifies a unique command request channel string. We 
will see that the backend site has to use exactly the same channel string in order to be able to 
communicate via an UI channel created within the RemoteControlComponentOCX. The 
method CallProxyMetod with SetNameTag designates to a specific Update Event Channel 
which has to be initialized on the backend site accordingly otherwise. This enables the 
backend to find all the clients when it notifies a state change. 

function Calc_Onload ( ) 
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{ 

var retb 
var rets 
var r 

calc . ProgressBarl .Min = 0 
calc. ProgressBarl. Max = 100 
calc . ProgressBarl .Value = 0 

document . RemoteControlComponentOCXl . initDispatch ( " " ) 
ssid = 

document . RemoteControlComponentOCXl . loadCommandMediator ( "CKeyValueCM 
") 

retb = document. RemoteControlComponentOCXl. setChannelName (ssid, 

" \ \ KeyValueProxy \ \MEDC0M1 \ \ $ " ) 
rets = document .RemoteControlComponentOCXl . callProxyMethod (ssid, 

" SetNameTag " , » \\KeyValueProxy\ \MEDC0M1\ \ $ " ) 
retb = 

document . RemoteControlComponentOCXl . initATEvtChan (document . calc . send 

ChanTxt .value) ; 
calc. Textl. value = "4" 
calc. Text 2 .value = "9" 
calc .Text 3 .value = 

} 

The sequence of these three commands can be called more than once and for every call a new 
internal channel gets created. The parameter for loadCommandMediator should be always 
"CKeyValueCM" for now. The parameters of the other two methods should be different for all 
individual channels but it should have the same value string for setChannelName and 
callProxyMethod of a given channel ssid. Only this guarantees that the update event channel 
(1 ;n) which can be triggered on server site correlates exactly with the command channel (1:1). 
In the xample below this name is"MEDCOM_MOD" which creates both, an event and a 
command channel only for the local machine. If a channel should be created for distributed 
machines, the string pattern should be constructed according to a network pattern (take a look 
into the AT user's guide for more information on creating AT local or network patterns. For 
instance, if instead of "MEDCOMJVIOD" a different pattern, like "\MEDCOM_MOD\$" 
would have been used as parameter for both APIs, the communication would be possible even 
across machine boundaries. Another precondition is that now on both machines the NPS 
deamon has to be running. The NPS deamon itself is an software IC compliant backend 
component which can be started with a CsaGenericMain backend container. An example 
configuration file for the NPS deamon is shown below. 

# ======^========^==========^===========^== 

# Example configuration file for the NPS daemon. 

# =======s===M======!=a=M!========M=============: = 

# The daemon supports the following options: 

# -d <DomainName> : The logical domain name in which the NPS daemon is 

located 

# ~j < joined Domain> : Additional domain to which the NPS daemon is to be 

joined 

# -c <cycle time> : Time in seconds between each broadcast the daemon makes 

to 

# establish and keep contact to the other NPS daemons, 
(default 60s) 
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# -b <broadcast port> : TCP/IP communication port to be used (default: 

56251) 

# The port should have a value > 1024 and < 65536, 

dynamic CsaNPS Service_Object * CsaNPS%GMDLL% :_make_CsaNPSComp () " -A 
OSCSYS_%COMPUTERNAME% -b 64518 -d testDomain" 

Keep in mind, that the backend site of the RemoteControlComponentOCX, the KeyValueCO 
consumer class which runs typically in a CsaGenericComponent, uses the same string as 
parameter in the Consumer initialize method and as the fifth parameter of the KeyValueCO- 
CommandObject's create method. This is necessary, otherwise the communication endpoints 
would not be connected properly (see below). 

myKeyValueCO = CKeyValueCO :: create ( (const char 

*) 0, true, CapAtCmdNoWBoxId, (void *) 0, "\\KeyValueProxy\\MEDCOMl\\$ " ) / 
// command channel 

myKeyValueCO- initialize (this, " \\KeyValueProxy\\MEDCOMl\\$ " ) ; // update 
event channel 

Additionally to the client / server communication mode, the RemoteControlComponentOCX 
provides event propagation mode additionally. The initATEventChan method creates a bi- 
directional AT event channel via the help of the RemoteControlComponentOCX. It supports 
creating an arbitrary number of AT event channels and fires a proper OLE Automation event 
when a subscribed channel received an event or allows sending an AT event via the subscribed 
channel. 

When a button has been pressed, typically a request will be activiated via calling the OLE 
automation interface of the RemoteControlComponentOCX, as shown below. 

The example shows that the RemoteControlComponentOCX accepts an arbitrary number of 
stringified key/value pairs after the list pointer has been reset and will send this current state of 
the list of key/value pairs to its backend whenever the execute method is called. The method 
will not block until the request has been processed on the backend site. In oter words, the UI is 
non-blocking. When execute has been called the return parameter is either "C" or a real 
command sequence request identifier (cmdid) is returned. 

In the first case it indicates that on the backend site there is a controller component (suppose 
an application architecture model based on frontend, controller, backend instead of just using 
frontend, backend) and not a real business component. In this case the command id is useless 
for the client in the moment when execute has been called. The real command id will come 
back later, via a reply event. 

In the second case there is a real business component running on the backend and the 
command id can be queued. . . . 

function Add_Click() 

{ 
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calc .Text3 .value = " " 

document .RemoteControlComponentOCXl.proxyClearKeyValueList (ssid) 
key = "cmd" 
val = "Add" 

document .RemoteControlComponentOCXl .proxyAddKeyValue (ssid, key, val) 

key = "sumA" 

val = calc. Text Lvalue 

document .RemoteControlComponentOCXl. proxyAddKeyValue (ssid, key, val) 

key = "sumB" 

val = calc . Text2 .value 

document .RemoteControlComponentOCXl .proxyAddKeyValue (ssid, key, val) 
//document . RemoteControlComponentOCXl . execute (ssid) 
val = document . RemoteControlComponentOCXl. executeModeEx 

(ssid, " CALLBACK__MODE " ) 
if (val 1= "C") 

{ 

AddQueuedResult ( " " , val) 

} 

} 

The same command can be exuted also in future mode, where a wait call is used to resync to 

previously activated command. 

This has the same effect as a synchronous activation. . . 

function Add_Click() 

{ 

calc. Text 3 .value = "" 

document .RemoteControlComponentOCXl . proxyClearKeyValueList (ssid) 
key = "cmd" 
val = "Add" 

document .RemoteControlComponentOCXl. proxyAddKeyValue (ssid, key, val) 

key = "sumA" 

val = calc . Text 1 .value 

document .RemoteControlComponentOCXl .proxyAddKeyValue (ssid, key, val) 

key = "sumB" 

val = calc. Text2 .value 

document . RemoteControlComponentOCXl . proxyAddKeyValue (ssid, key , val ) 
val = document . RemoteControlComponentOCXl . executeModeEx 

(ssid," FUTURE_MODE " ) 
if (val != "C") 
{ 

AddQueuedResult ( " " , val) 

} 

for (i=0; i<10 ; i++) 

{ 

rvall = document. RemoteControlComponentOCXl. WaitCmdId( ssid, 
calc . Combol . value , - 1 ) 

} 

} 

As we have seen above, a command id that came back as a result of an execute method can b 
stored anywhere in the frontend and later on used to cancel, suspend, resume or continue a 
running job via the command id. A situation where cancel, suspend and resume are is used is 
shown below. ... 
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function Cancel_Click ( ) 

{ 

if (calc. Combol. ListCount > 0) 

{ 

rvall = document. RemoteControlComponentOCXl . cancelCmdld (ss id, 
calc . Combol .value) 

} 

} 

function Suspend_Click ( ) 

{ 

if (calc . Combol .value != " " ) 

{ 

rvall = document.RemoteControlComponentOCXl.suspendCmdldfssid, 
calc . Combol .value) 

} 

} 

function Resume__Click { ) 

{ 

if (calc. Combol. value != "") 
{ 

rvall = document. RemoteControlComponentOCXl . resumeCmdld (ssid, 
calc . Combol .value) 

} 

} 

Whenever a job has been executed or canceled, all these are asynchronous calls typically, the 
results will came back from the backend some times later and will be delivered to the UI via 
an OLE event fired by the RemoteControlComponentOCX, as shown below. The first 
example shows an OLE Automation event called when a subscribed AT event channel has a 
new value to deliver. 



function SendChanEvt Click ( ) 
{ 

// send AT event evt to AT channel chan 
document . RemoteControlComponentOCXl . sndAtEvtChan 

(document . calc . sendChanTxt .value, document . calc . sendEvtTxt .value) ; 



The second example shows an OLE Automation event called when command has a new reply 
result value to deliver. 

function RemoteControlComponentOCXl ReturnEvent (sID ) 
{ 

document . RemoteControlComponentOCXl . setCurrentCommandMediator (sID) 
document . RemoteControlComponentOCXl . returnSetKeyValueToFirst (sID) 
retb = document .RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
key = document .RemoteControlComponentOCXl . returnGetCurrentKey (sID) 
val = document. RemoteControlComponentOCXl. returnGetCurrentValue (sID) 
if ((key == "reply") (val == "Add")) 
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{ 

retb = 

document . RemoteControl Component 0CX1 . returnGetNextKeyValue (sID) 
key = document .RemoteControlComponentOCXl . returnGetCurrentKey (sID) 
val = 

document .RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
if (key "cooky") 

{ 

AddQueuedResult ( " " , val) 

} 

if (key == "percent") 
{ 

retb = 

document .RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
keyl = 

document .RemoteControlComponentOCXl . returnGetCurrentKey (s ID) 
vail = 

document .RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
AddMoreResult (val, vail) 

} 

if (key == "NewState") 
{ 

retb = 

document .RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
keyl = 

document .RemoteControlComponentOCXl . returnGetCurrentKey (s ID) 
vail = 

document . RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
AddMoreResult (val, vail) 

} 

if (key == "result") 
{ 

retb = 

document .RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
keyl = 

document .RemoteControlComponentOCXl . returnGetCurrentKey (s ID) 
vail = 

document .RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
AddEndResult (val, vail) 

} 

} 

} 

These events can indicate different reply situations as sent by the backend. The example below 
shows an event, the example backend called, to indicate that it queued the request but did not 
process it, finally. . . . 

function AddQueuedResult (res , cmdid ) 

calc .Text 3 .value = res 

calc . Combol . Addltem (cmdid) 

if (calc. Combol .ListCount == 1) 

{ 

calc. Combol. value = cmdid 

} 
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} 

The next function shows a situation where the backend indicates some progress while it is 
currently executing a request 

function AddMoreResult (res , cooky ) 

// not the last reply! More are expected later on I 

if (res == "suspended") 

{ 

calc. Text 3 .value = "suspended, press Resume ..." 
calc.Combol. value = cooky // select first member in list 
return; 

} 

if (res == "resumed") 

{ 

calc .Text 3 .value = "Add cmd resumed" 
return; 

} 

if (res "delayed") 

{ 

var theResponse 
calc. Text3 .value = "cmd delayed ..." 
theResponse = "10" 

theResponse = window . prompt ( "Suml is 0! Please enter a new 
value greater 0 1% theResponse); 
calc. Text Lvalue = theResponse 
if (calc . Combol .value != "" ) 

retb = document -RemoteControlComponentOCXl . continueCmdld (ssid, 
calc .Combol. Text, theResponse) 
return; 

} 

if (res == "continued") 

{ 

var result; 
calc. Text3 .value = "Add cmd continued!" 
return; 

} 

// more replies expected, adjust progressbar 
calc . ProgressBarl .Value = res 
calc . Text 3 . value = » " 

} 

The last function shows a situation where the backend indicates the end result of a request it 
has performed completely 

function AddEndResult (res , cooky) 

// rem last one, no more replies expected, adjust progressbar 
var x 

calc .Text3 .value = res 
calc. ProgressBarl. Value = 0 

if (calc. Combol. ListCount >= 1) 

{ 

for ( x = 1 ; x <= calc. Combol. ListCount ; x++ ) 
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{ 

if (calc.Combol.List (x - 1) == cooky) 
{ 

c al c. Combo 1. Remove I tern (x - 1) 
if (calc.Combol.ListCount >= 1) 

calc.Combol.text = calc . Combol . List (0 ) 

else 

calc.Combol.text = " " 

} 

} 

} 

} 

The backend could come into idle time situations, where no client has a request running, but 
the backend could detects a situation where it needs to inform the clients. For this reason, it 
has to send an event via an update channel, which will be received by the 
RemoteControlComponentOCX. The RemoteControlComponentOCX fires an OLE Event 
which can be sinked, as shown below. . . 



function RemoteControlComponentOCXl_UpdateEvent (sID , sm ) 

document . RemoteControlComponentOCX! . set Current CommandMedia tor (sID) 
if (sm == "ADD xoff") 

{ 

AddSuspend () 

} 

if (sm == "ADD xon") 

{ 

AddResume () 

} 

} 

The UI could use this information to disable a button in order to react to the xoff-event from 
the backend . . . 

function AddSuspend () 

{ 

calc. Add. disabled = true 

} 

... or the UI could use the resume information to re-enable a button to react on the xon event 
from the backend. 

function AddResume () 

{ 

calc. Add. disabled = false 

} 

When the UI gets shutting down, the RemoteControlComponentOCX should close all its 
running command mediator channels and AT event channels which is been initiated at the 
beginning, and finally shutting down the dispatching subsystem, when activated previously as 
well, which is shown below. 
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f uric t i on Ca 1 c_OnUn 1 oad ( ) 

{ 

var rets 
var retb 

// shutdown gracefully when things are yet running . . . 
for ( x = 0 ; x < calc.Combol.ListCount ; x++ ) 

// first destroy the local return object 

rvall = document . RemoteControlComponentOCXl . DestroyCmdld (ssid 7 
calc . Combol .List (x) ) 

// second stop the running commands in BE -> since return are dead, 
no replies will come. 

rvall = document. RemoteControlComponentOCXl. cancelCmdld (ssid, 
calc . Combol . List (x) ) 

} 

rets = document . RemoteControlComponentOCXl . unloadCommandMediator ( ssid) 
retb = 

document . RemoteControlComponentOCXl . exitATEvtChan (document . calc . send 
ChanTxt .value) ; 
^ document . RemoteControlComponentOCXl . exitDi spatch ( ) 

</SCRIPT> 

</body> 

</html> 



1.5.2 Backend Logic API - Backend KeyValueConsumer derived C++ Class Interface 

In most of the cases when working with the RemoteControlComponentOCXl typically the AT wizards will be 
used to generate the frontend and backend parts of the application. In this case, the 

RemoteControlComponentOCX is embedded on client site and the KeyValueCOConsumer on backend site 
(wrapped within a backend GenericComponent). 

An example how this can be done is shown below. Only the KeyValueCOConsunsumer 
relevant methods are shown. The CsaGenericComponent methods are ignored here. Please 
refer to the according chapter of this document to read more about CsaGenericComponent 
APIs. 



1-6 A complete Architecture Use Case example: View , 
Controller and Model Component - Sample Code 

The following chapters offer a full example of the architecture model across all layers (View, Controller, Model). 
In addition, the chapter tries to show various use cases to demonstrate how the RemoteControlComponentOCX 
can be used even in different language environments for the User Interface part. It is shown how all these UIs 
although written in different languages, are enabled to be connected to always the same controller component of 
the RemoteControlComponentOCX, a KeyValueConsumer object, embedded into a syngo controller component. 
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The sample used for all examples is the Calc Application described in more detail after a short review the 
application design. 

The example Calc Application used for this purpose should simulate a calculator which uses a frontend and a 
backend for adding two numbers and presenting the result. The application allows to demonstrate most critical 
parts of an asynchronous communication environment, reaching from non-blocking GUIs over multiple replies to 
indicate progress, to flow control events indicating that the backend needs some rest to follow all the requests 
queued for the asynchronously running frontends 

The sample demonstrates these essential communication aspects: 

1 . Asynchronous, non-blocking activation request. 

2. None, one or multiple replies as a result to a single request. 

3 . Cancellation of running requests. 

4. Flow control when backend request queue reached a high-water-mark 

5. Fire asynchronous events in to indicate flow control limits. 

6 . Suspend a running backend j ob . 

7. Resume a running backend job. 

8 . Continue a delayed backend job. 

The figure below shows an example application View GUI component (MacroOCX) and how it accesses its 
controller FSM component via the proxy and return objects, which are based on ATOMIC standard internally 
The according model or services component (backend), called calcbe, and command object projects (testcmd- 
prox/ret and testcmd-cmd) are shown at the end of this paper. 

The picture below shows what features the RemoteControlComponentOCX addresses in form 
of a Design Pattern. 
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It addresses the following general communication aspects especially in asynchronous 
environments where blocking Uis are not allowed. 

The communication domain is divided up into two major mechanisms, client/server (1 : 1) - and 
event propagation (n:m) communication. 

The first is typically needed for 1:1 imparative communication. As an example, the user 
presses a button within the UI and as a reaction some activity should be performed. Only a 
single piece of code should accept the activity and do the job. This form of communication is 
typically used for frontend to backend communication because there has to be a user driven 
activity to start it. Since it binds the participating parties very tight this form of communication 
should be not used for inter-application communication at all. 

The second is needed especially for events arising even if no user did anything with the system 
from the outside, but internally there has been some activity which raised an event. Since 
nobody did any external activation it is typically not known who will finally consume this 
event, we call this m:n reactive communication. For that reason the event has to be propagated 
to consumers which did subscribe to the event channel of this category before. When the event 
arises all subscribers will be notified and for that reason it is a n:m reactive form of 
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communication. Thios form of communication is very often used for backend to frontend 
comminication or for communication between different applications because it reduces tight 
coupling. 



1.6.1 View Component with RemoteControlComponentOCX - Examples in different languages 

The RemoteControlComponentOCX offers a rich connectivity for controllers written a one 
language to be connected to Views or Uis implemented in different languages all able to be 
connected to the same unchanged controller. All these frontends are using the 
RemoteControlComponentOCX principle in different languages which will be shown by 
example code within the next chapters. 



1 .6.1 .1 View Component with RemoteControlComponentOCX - Example: frontend part in Visual C++ 
running as a MacroOCX within the CapGM GUI container generic executable 



CapGM - Calcctlfecpp 
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^include <AT/ CapExtRep . h> 
class CCalcctlfecppDlg; 

class CCalcctlfecppCtrl : public CapMacroOCXBase 
DECLARE_DYNCREATE (CCalcctlfecppCtrl) 

/ / Constructor 
public : 

CCalcctlfecppCtrl () ; 
/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CCalcctlfecppCtrl) 
public : 

virtual void OnDraw(CDC* pdc, const CRect& rcBounds, 
const CRect& rclnvalid) ; 

virtual void DoPropExchange (CPropExchange* pPX) ; 
virtual void OnResetState ( ) ; 
//} }AFX_VIRTUAL 

// Implementation 

protected : 

afx_msg BSTR GetName (LPCTSTR tokenld) ; 

-CCalcctlfecppCtrl () ; 



DECLARE_OLECREATE_EX (CCalcctlfecppCtrl) 
factory and guid 

DECLARE_OLETYPELIB (CCalcctlfecppCtrl) 
GetTypelnfo 

DE CLARE_PRO P PAGE IDS (CCalcctlfecppCtrl) 
page IDs 

DECLARE_OLECTLTYPE (CCalcctlfecppCtrl) 
and misc status 



// Class 
II 

1 1 Property 
/ / Type name 



// Message maps 

//{ {AFXJV1SG (CCalcctlfecppCtrl) 

afx__msg int OnCreate (LPCREATESTRUCT lpCreateStruct) ; 
afx_jnsg void OnSize (UINT nType, int cx, int cy) ; 
afx_msg void OnDestroyO ; 
afx__msg void OnCloseO; 
//} }AFX_MSG 



-23- 



DECLARE_MESSAGEJVLAP ( ) 

// Dispatch maps 

//{ {AFXJDISPATCH (CCalcctlfecppCtrl) 
afx_msg void exitDispatch () ; 

afxjnsg void initDispatch (LPCTSTR svcf ile) ; 
//} }AFX_DISPATCH 
DECLARE_DISPATCH_MAP ( ) 

/ / Event maps 

//{ {AFX_EVENT (CCalcctlfecppCtrl) 
//} }AFX_EVENT 
DECLARE_EVENT_MAP ( ) 

/ / Interface maps 

public : 

// Dispatch and event IDs 
enum { 

//{ {AFX_DISP_ID (CCalcctlfecppCtrl) 
dispidExitDispatch = 1L, 
dispidlnitDispatch = 2L, 
//} }AFX_DISP_ID 

}; 

private : 

CCalcctlf ecppDlg *m__Calcctlf ecppjnicrodlg; 

public : 

long CapGetClientld (VARIANT FAR* signature) ; 
long Modal ityEvent (LPCTSTR event St ring_in) ; 
long ApplicationEvent (LPCTSTR eventString_in) ; 
long SetAdapterObject (long objPtr) ; 
long SetStatusBarDispPtr (long FAR* argl) ; 

protected: 

long myCompAdapter ; 

}; 

// 

// Calcctlf ecppCtl . cpp : implementation file 

// 

CCalcctlfecppCtrl : : CCalcctlf ecppCtrl () 
{ 
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InitializellDs (&IIDjDCalcctlf ecpp, 
&IID_DCalcctlf ecppEvents) ; 

EnableSimpleFrame () ; // nested controls 
//MEDSW ArT: Init Dig 
m_Calcctlf ecpp__microdlg = NULL; 

// TODO: Initialize your control's instance data here. 

} 

CCalcctlf ecppCtrl : : -CCalcctlf ecppCtrl () 
{ 

// TODO: Cleanup your control's instance data here, 
if (m_Calcctlf ecpp_microdlg) delete 
m_Calcctlf ecpp_microdlg; 
m_Calcctlf ecpp_microdlg = NULL; 

} 

int CCalcctlf ecppCtrl : :OnCreate (LPCREATESTRUCT lpCreateStruct) 
{ 

if (CapMacroOCXBase : :OnCreate (lpCreateStruct) == -1) 
return -1; 

mjmenu- >LoadMenu ( IDR_CALCCTLFECPP_MENU) ; 

//MEDSW ArT: Bring up MicroOCX Dig 

m_Calcctlf ecppjnaicrodlg = new CCalcctlf ecppDlg; 

if (m__Calcctlf ecpp_microdlg) 

{ 

if (m_Calcctlf ecpp_microdlg- 
>Create (IDD__DIALOG_CALCCTLFECPP, this) ) 

m_Calcctlf ecpp_microdlg- >ShowWindow (SW_SHOW) ; 

} 

return 0 ; 

} 

void CCalcctlf ecppCtrl : :OnSize (UINT nType, int cx, int cy) 

{ 

CapMacroOCXBase: :OnSize (nType, cx, cy) ; 

//MEDSW ArT: Resize Dig 

if (m_Calcctlf ecpp_microdlg) 

m_Calcctlf ecpp_microdlg->MoveWindow (0 , 0, cx, cy) ; 

} 

void CCalcctlf ecppCtrl : :OnDestroy() 

{ 

CapMacroOCXBase: :OnDestroy() ; 

// TODO: Add your message handler code here 
if (m_Calcctlf ecpp_microdlg) 
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{ 

//AfxMessageBox(_T( n s n ) ) ; 
m_Calcctlfecpp_microdlg->stop () ; 
m_Calcctlf ecpp_microdlg- >DestroyWindow ( ) ; 
delete m_Calcctlf ecpp_microdlg; 
m_Calcctlf ecpp_microdlg = NULL; 

} 

} 

// 

// dispatching subsystem for 3-rd-party executables only 

void CCalcctlf ecppCtrl : : exitDispatch ( ) 

{ 

// TODO: Add your dispatch handler code here 
m_Calcctlf ecpp_microdlg->eDisp () ; 

} 

void CCalcctlf ecppCtrl : : initDispatch (LPCTSTR svcfile) 

{ 

// TODO: Add your dispatch handler code here 
CString sf=_T(" 1! ) ; 
sf = svcf ile ; 

m_Calcctlf ecpp_microdlg->iDisp (sf ) ; 

} 



// 

// The dialog class 

// 

class CCalcctlf ecppDlg : public CDialog 

{ 

// Construction 
public : 

CCalcctlf ecppDlg (CWnd* pParent = NULL); // standard 

constructor 

-CCalcctlf ecppDlg () ; 

void stop () ; 

void start () ; 

void iDisp (CStringSc f nam) ; 
void eDisp ( ) ; 

// Add cmd Return event reaction handlers 

void AddEndResult (CString Seres, CString &cooky) ; 

void AddMoreResult (CString &res, CString &cooky) ; 

void AddQueuedResult (CString &res, CString &cmdid) ; 

// Add cmd Update event reaction handlers 

void AddSuspendO ; 

void AddResumeO ; 



-26- 



// Add cmd Update events 
CSt ring AddNotifyXof f ; 
CString AddNotifyXon; 



// Dialog Data 

//{ {AFXJDATA(CCalcctlfecppDlg) 

enum { IDD = IDD_DIALOG_CALCCTLFECPP }; 

CEdit m_chan; 

CEdit m_esnd; 

CEdit m_ercv; 

CComboBox m_combol ; 

CEdit ma; 

CEdit mb; 

CEdit mc; 

CRemoteControl Component OCX m_itf ocx; 
//} }AFX_DATA 



/ / Overrides 

// ClassWizard generated virtual function overrides 

//{ {AFX_VIRTUAL(CCalcctlfecppDlg) 

protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // 
DDX/DDV support 
//} }AFX_VIRTUAL 

/ / Implementation 
protected : 

// Generated message map functions 
//{ {AFX_MSG (CCalcctlfecppDlg) 
af x_msg void 

OnReturnEventRemoteControlComponentOCXctrll (LPCTSTR 
sID) ; 

afx_msg void 

OnUpdateEventRemoteControlComponentOCXctrll (LPCTSTR 
sID, LPCTSTR sMessage) ; 
afx_msg void 

OnReturnEventDataRemoteControlComponentOCXctrll (LPCTSTR 
sID, LPCTSTR sMessage) ; 
afx_msg void 

OnATEvtChanRemoteControlComponentOCXctrll (LPCTSTR 
ChanName, LPCTSTR evt) ; 
virtual BOOL OnlnitDialog ( ) ; 
afx_msg void OnCancelO; 
afx_msg void OnAddO ; 
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afx_msg void OnDestroy () ; 
afx_msg void OnCloseO ; 
afx_msg void OnCancell ( ) ; 
afx_msg void OnSuspendO ; 
afx_msg void OnResumeO ; 
afx_msg void OnSendEvent ( ) ; 
DECLARE_EVENTSINK_MAP ( ) 
//}}AFX_MSG 
DECLARE_MESSAGE_MAP () 

public : 

CProgressBar *m_wndProgressCtrl ; 
CButton *m_add; 
CString ssid; 

private : 

bool initiated; 

}; 

// 

// Calcctlf ecppDlg . cpp : implementation file 
// 

#include "stdafx.h" 

#include " Calcctl f ecpp . h" 

#include "Calcctlf ecppDlg. h" 

#include "edDiag .h" 

#include <CsaCommon/ CsaStringConvert . h> 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

/////////////////////////////////////////////////////////// 
// CCalcctlf ecppDlg dialog 



CCalcctlf ecppDlg: :CCalcctlf ecppDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CCalcctlf ecppDlg: :IDD, pParent) 

{ 

//{ {AFX_DATA_INIT (CCalcctlf ecppDlg) 
// } } AFX_D AT A_ I N I T 

AddNotifyXof f =_T ( "ADD xoff"); 
AddNotifyXon=_T("ADD xon") ; 
initiated=f alse ; 

} 
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CCalcctlf ecppDlg : : -CCalcctlf ecppDlg ( ) 

{ 
} 

void CCalcctlf ecppDlg: :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CCalcctlf ecppDlg) 

DDX_Control (pDX, IDC_CHANNEL, m_chan) ; 

DDX_Control (pDX, IDC_EVENT_SND, m_esnd) ; 

DDX_Control (pDX, IDC_EVENT_RCV, m_ercv) ; 

DDXjControl (pDX, IDC__COMB01 , m__combol) ; 

DDX_Control (pDX, IDCJEA, ma) ; 

DDX_Control (pDX, IDC_EB, mb) ; 

DDX_Control (pDX, IDC_EC / mc) ; 

DDX_Control (pDX, IDC_REM0TEC0NTR0LC0MP0NENT0CXCTRL1 , 

m_itfocx) ; 

/ / } } AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (CCalcctlf ecppDlg , CDialog) 
// { {AFX_MSG_MAP (CCalcctlf ecppDlg) 
ON_BN_CLI CKED ( IDC_ADD , OnAdd) 
ON_WM_DESTROY() 
ON_WM_CLOSE ( ) 

ON__BN_CL I CKED ( IDCJSUSPEND , OnSuspend) 
ON_BN_CLICKED (IDC_RESUME / OnResume) 
ON_BN_CLICKED ( IDC_CANCEL, OnCancel) 
ON_BN_CLICKED (IDC_SEND_EVENT / OnSendEvent) 
//}}AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////// 
// CCalcctlf ecppDlg message handlers 

B E G I N_E VENT S I NK__MAP (CCalcctlf ecppDlg, CDialog) 
//{ {AFX_EVENTSINK__MAP (CCalcctlf ecppDlg) 
ON_EVENT (CCalcctlf ecppDlg, 

IDC_REMOTECONTROLCOMPONENTOCXCTRLl / 1 /* ReturnEvent 
*/ , OnReturnEventRemoteControlComponentOCXctrll , 
VTS_BSTR) 

ON_EVENT (CCalcctlf ecppDlg, 

IDC_REM0TEC0NTR0LC0MP0NENT0CXCTRL1, 2 /* UpdateEvent 
*/ f OnUpdateEventRemoteControlComponentOCXctrll , 
VTS BSTR VTS BSTR) 
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ONJEVENT (CCalcctlfecppDlg, 
IDC_REMOTECONTROLCOMPONENTOCXCTRLl, 3 /* 
ReturnEventData */, 

OnReturnEventDataRemoteCont rolComponentOCXctrl 1 , 
VTS_BSTR VTS_BSTR) 
ON_EVENT (CCalcctlfecppDlg, 

IDC_REMOTECONTROLCOMPONENTOCXCTRLl, 4 /* ATEvtChan */, 
OnATEvtChanRemo te Control Component OCXctr 11 , VTS_BSTR 
VTS_BSTR) 

// } } AFX_EVENTSINK_MAP 
END_EVENTSINK_MAP ( ) 

// RemoteControlComponentOCX OLE Events 

void 

CCalcctlfecppDlg : : OnReturnEventRemoteControlComponentOC 
Xctrll (LPCTSTR sid) 

{ 

// TODO: Add your control notification handler code 
here 

// handles all (multiple) replys of commands 

m_itf ocx. setCurrentCommandMediator (sid) ; 

m_itf ocx. returnSetKeyValueToFirst (sid) ; 

BOOL ret = m_itf ocx . returnGetNextKeyValue (sid) ; 

CString key ; 

CString val; 

key=m_itf ocx. returnGetCurrentKey (sid) ; 

val=m_itf ocx. returnGetCurrentValue (sid) ; 

if ((key == _T ( "reply" ) ) (val == _T("Add"))) 

{ 

ret=m_itf ocx. returnGetNextKeyValue (sid) ; 
key=m_itf ocx. returnGetCurrentKey (sid) ; 
val=m__itfocx. returnGetCurrentValue (sid) ; 
if (key == _T("cooky")) // magic cooky as request id 
of queued Add commands 

{ 

CString v=_T (" ") ; 
AddQueuedResult (v, val) ; 
return; 

} 

if (key == _T ( "percent ") ) // reply with more flag = 
true means percent of work done 

{ 

ret=m_itf ocx. returnGetNextKeyValue (sid) ; 
CString keyl=m_itf ocx . returnGetCurrentKey (sid) ; 
// "cooky" 
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CString 

val l=m_itf ocx. returnGetCurrent Value (sid) ; 
AddMoreResult (val, vail) ; 
return; 

} 

if (key == _T ( "NewState" ) ) // reply with more flag = 
true means percent of work done 

{ 

ret=m_itf ocx. returnGetNextKeyValue (sid) ; 
CString keyl=m_itf ocx. returnGetCurrentKey (sid) ; 
// "cooky" 

CString 

vall=m_itfocx.returnGetCurrentValue (sid) ; 
AddMoreResult (val, vail) ; 
return; 

} 

if (key == _T ( "result ") ) 
{ 

ret=m_itf ocx. returnGetNextKeyValue (sid) ; 
CString keyl=m_itf ocx . returnGetCurrentKey (sid) ; 
// "cooky" 

CString 

vall=m_itf ocx. returnGetCurrent Value (sid) ; 
AddEndResult (val , vail) ; 
return; 

} // reply with more flag = false means complete Add 
done 

} 

} 

void 

CCalcctlf ecppDlg: : OnUpdateEventRemoteControlComponentOC 
Xctrll (LPCTSTR sid, LPCTSTR sMessage) 

{ 

// TODO: Add your control notification handler code 
here 

// handles update events for the command channel (only 

receivable for RemoteControlComponentOCX ! ) 

// here used for flow control events from the business 

components request queue. 

m_itf ocx. setCurrentCommandMediator (sid) ; 

CString msg= sMessage ; 

if (msg==AddNotifyXof f ) AddSuspend ( ) ; 
if (msg==AddNotifyXon) AddResume ( ) ; 
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void 



CCalcctlf ecppDlg : : OnReturnEventDataRemoteControlCompone 
ntOCXctrll (LPCTSTR sID, LPCTSTR sMessage) 

{ 

// TODO: Add your control notification handler code 
here 

// handles all (multiple) replys of commands and has 
all data packed in 

// just a single string even if there are multiple 
key/vals 

// This is for poor environments like java or asp 

} 

void 

CCalcctlf ecppDlg : : OnATEvtChanRemoteControlComponentOCXc 
trll (LPCTSTR ChanName, LPCTSTR evt) 

{ 

// TODO: Add your control notification handler code 
here 

// handles AT event channel events that has been 
created vis the 

// RemoteControlComponentOCX before. 
this->m_ercv. SetWindowText (evt) ; 

} 

// 

void CCalcctlf ecppDlg :: start () 

{ 

//Af xMessageBox (_T ( " start " ) ) ; 

ssid = m_itf ocx. loadCommandMediator (__T ( "CKeyValueCM" ) ) ; 
// create a new event propagation channel for 
especially for this cmd channel 
BOOL ret = 

m_itfocx. set Channe lName ( ssid, _T ( "MEDCOM_]Y[OD ,, ) ) ; 
// set the name tag method of the one and only c/s 
Proxy of this channel ! 
CString rets = 

m_itf ocx. callProxyMethod (ssid, _T ( "SetNameTag" ) ,_T ( " \\Ke 
yValueProxy\\MEDCOMl\\$OD") ) ; 
CString chan; 

this->m_chan.GetWindowText (chan) ; 
ret=m_itf ocx. initATEvt Chan (chan) ; 
initiated = true; 

} 
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void CCalcctlf ecppDlg : : stop () 

{ 

// TODO: Add your message handler code here and/or call 
default 

m_itfocx.unloadCommandMediator (ssid) ; 
CSt ring chan; 

this->m_chan.GetWindowText (chan) ; 
BOOL ret=m_itfocx.exitATEvt Chan (chan) ; 

} 



II- 



BOOL CCalcctlf ecppDlg : : OnlnitDialog ( ) 

{ 

CDialog: : OnlnitDialog ( ) ; 

// TODO: Add extra initialization here 
m_wndProgressCtrl = (CProgressBar *) 
GetDlgl t em ( 1DC_PR0GCTRL1 ) ; 
m_wndProgressCtrl->SetMin (0) ; 
m_wndProgressCtrl->SetMax (10 0) ; 
m_wndProgressCtrl->SetValue (0) ; 
this- >m_chan . SetWindowText (_T ( » MEDCOMJV10D » ) ) ; 
this- >ma . SetWindowText ( JT ( ,r 7 " ) ) ; 
this- >mb . SetWindowText (_T ( " 8 » ) ) ; 
this- >UpdateData (FALSE) ; 

return TRUE; // return TRUE unless you set the focus 
to a control 

// EXCEPTION: OCX Property Pages should 

return FALSE 



void CCalcctlf ecppDlg : :OnCancel() 

{ 

// TODO: Add your control notification handler code 
here 

CString val ; 

m_combol . GetLBText (m_combol . GetCurSel () 7 val) ; 

if (val ! =_T ( ) ) 

{ 

BOOL ret=m_itf ocx. cancelCmdld (ssid, val) ; 
if ( !ret) 

{ // error, not the right proxy and/ or no 
controller 

} 

} 



-33- 



} 

void CCalcctlfecppDlg: :OnAdd() 

{ 

if (! initiated) 

{ 

start ( ) ; 
return; 

} 

this->mc . SetWindowText (_T ( " " ) ) ; 

CSt ring key; 
CString val; 

m_itf ocx.proxyClearKeyValueList (ssid) ; 

key=(_T( n cmd M ) ) ; 
val= (_T("Add n ) ) ; 

m_itf ocx.proxyAddKeyValue (ssid, key, val) ; 

key= (_T( n sumA") ) ; 

this->ma.GetWindowText (val) ; 

m_itf ocx.proxyAddKeyValue (ssid, key, val) ; 

key= (_T( n sumB n ) ) ; 

this - >mb .GetWindowText (val) ; 

m__itf ocx.proxyAddKeyValue (ssid, key, val) ; 

CString cmdid=__T ( " " ) ; 
CString v=_T("") ; 
cmdid = 

m_itf ocx. executeModeEx (ssid,_T ( " CALLBACK_MODE " ) ) ; 

//AfxMessageBox (cmdid) ; 

if (cmdid==_T("C") || cmdid==_T ( " " ) ) 

{ 

// do not add the cmdid here, it is wrong for a 
controller 

// and the right one will come later via a separate 
reply 

} 

else 

{ 

//we have a direct business component , not a 
controller 

// there will be no special reply coming! 
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AddQueuedResult (v, cmdid) ; 

} 

} 

void CCalcctlf ecppDlg: :OnSuspend() 

{ 

// TODO: Add your control notification handler code 
here 

CString val ; 

m_combol .GetLBText (m_combol .GetCurSel () , val) ; 
if (val!=jr( nn ) ) 

{ 

BOOL ret=m_itfocx. suspendCmdld (ssid, val); 
if ( !ret) 

{ // error, not the right proxy and/or no 
controller 

} 

} 

} 

void CCalcctlf ecppDlg: :OnResume() 

{ 

// TODO: Add your control notification handler code 
here 

CString val; 

m__combol . GetLBText (m_combol . GetCurSel () ,val) ; 

if (val ! =_T ( » » ) ) 

{ 

BOOL ret=m_itf ocx. resumeCmdld (ssid, val); 
if ( !ret) 

{ // error, not the right proxy and/or no 
controller 

} 

} 

} 

void CCalcctlf ecppDlg: : OnSendEvent ( ) 

{ 

// TODO: Add your control notification handler code 
here 

CString chan; 
CString evt; 

this->m_chan.GetWindowText (chan) ; 
this->m_esnd.GetWindowText (evt) ; 
BOOL ret =m_itf ocx. sndAtEvtChan (chan, evt) ; 
if ( !ret) 

{ // error, not the right channel? 
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} 

} 



// 

void CCalcctlfecppDlg: : AddQueuedResul t (CString &res, CString 
&cmdid) 

{ 

this- >mc . SetWindowText (res) ; 
m_combol .Adds t ring (cmdid) ; 
if (m__combol .Get Count () == 1) 

{ 

m_combol . SelectString ( - 1 , cmdid) ; 

} 



} 



void CCalcctlf ecppDlg : : AddMoreResult (CString &res, CString 
&cooky) 

{ 

if (res==__T ("suspended") ) 

{ 

this->mc . SetWindowText (_T ( "suspended, press 
Resume ...")); 

m_combol . SetCurSel (0) ; // select first member in 

list 

this- >UpdateData (FALSE) ; 
this->ShowWindow(SW_SHOWNA) ; 
return; 

} 

if (res==_T ( "resumed" ) ) 

{ 

this->mc . SetWindowText (__T ( "Add cmd resumed" ) ) ; 
this->UpdateData (FALSE) ; 
this->ShowWindow(SW_SHOWNA) ; 
return; 

} 

if (res==_T ( "delayed" ) ) 
{ 

m_combol . SetCurSel (0) ; // select first member in 

list 

this->mc . SetWindowText (_T ( "delayed ...")); 
this- >UpdateData (FALSE) ; 
this->ShowWindow(SW_SHOWNA) ; 

//AfxMessageBox(_T ( "Add command asks a question: 
stop (yes/no) ?") ) ; 

edDiag mydiag; 
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mydiag .DoModal () ; 
CString result = _T("10"); 
result = mydiag. m_res . m_txt ; 
CString val; 

this->ma. SetWindowText (result) ; 

m__combol . SetCurSel (0) ; // select first member i 

list 

m_combol . GetLBText (m_combol . GetCurSel ( ) , val ) ; 
if (val!=_T("") ) 

{ 

BOOL ret=m_itf ocx. continueCmdld (ssid, 

val , result) ; 

if ( !ret) 

{ // error, not the right proxy and/or n 

controller 

} 

} 

return; 

} 

if (res==_T ("continued") ) 

{ 

this->mc . SetWindowText (_T ( "Add cmd continued" ) ) 
this- >UpdateData (FALSE) ; 
this->ShowWindow(SW_SHOWNA) ; 
return; 

} 

int progress; 
char txt [2 00] ; 

CSA__CSTRING_TO_ASCII (res, &txt [0] ) ; 
sscanf (txt , "%d ,f , ^progress) ; 

this->m_wndProgressCtrl = (CProgressBar *) this- 
>GetDlgIt em ( I DC_PROGCTRL 1 ) ; 

this->m_wndProgressCtrl->SetValue ( (float) progress) ; 
this- >mc . SetWindowText (_T ( 11 " ) ) ; 
this- >UpdateData (FALSE) ; 
this->ShowWindow(SW_SHOWNA) ; 



void CCalcctlfecppDlg: : AddEndResult (CString ^res, CString 
&cooky) 

{ 

this->mc . SetWindowText (res) ; 
this->m_wndProgressCtrl->SetValue (0) ; 
int ind; 

ind=m__combol . SelectString ( - 1 , cooky ) ; 
if (ind!=CB ERR) 
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m_combol . DeleteString (ind) ; 
m_combol . SetEditSel (0, -1) ; 
m_combol . Clear ( ) ; 
m_corabol . ShowDropDown ( TRUE ) ; 
m_combol . ShowDropDown ( FALSE ) ; 

m__combol . SetCurSel (0) ; // select first member in list 

} 

this ->UpdateData (FALSE) ; 
this->ShowWindow (SW_SHOWNA) ; 



void CCalcctlf ecppDlg : : AddSuspend ( ) 

this->m_add = (CButton *) this- >GetDlgItem (IDC_ADD) ; 
this->m_add->ShowWindow(SW HIDE) ; 



void CCalcctlf ecppDlg : :AddResume() 

this->m_add = (CButton *) this- >GetDlgItem ( IDC_ADD) ; 
this->m_add->ShowWindow (SW SHOW) ; 



void CCalcctlf ecppDlg : :OnDestroy() 
CDialog: :OnDestroy() ; 

/ / TODO : Add your message handler code here 



void CCalcctlf ecppDlg : :OnClose () 

// TODO: Add your message handler code here and/or call 
default 

CDialog: :OnClose() ; 



void CCalcctlf ecppDlg :: iDisp (CString& fnam) 

// TODO: Add your message handler code here and/or call 
default 

m_itf ocx. initDispatch (fnam) ; 
void CCalcctlf ecppDlg :: eDisp ( ) 
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{ 

// TODO: Add your message handler code here and/ or call 
default 

m_itfocx.exitDispatch() ; 

} 

1 .6.1 .2 View Component with RemoteControlComponentOCX - Example: frontend part in Visual 
Basic running as a OCX on a MacroOCX -HTML-Page within the CapGM GUI container generic 
executable 



CapGM - Calc 



P atient EP RE 



Options Help 



Visual Basic Enabled Asynchron 1:1 Client/Server Communication Pattern 

I 



;Add 



7f 000001 tt0ac6tt00008032 



Visual Basic Enabled Asynchron n:m Event Propagation Communication Pattern 

Channel Name 



MEDC0M MOD 



1 



: S end Event with CNannel Name 



Text5 



Event sent to Channel Name 



calcbe:: MEDSW ArT Modality Event!! 



Event from Channel Name 




//- 

II 

II- 



The interesting part of the Visual Basic OCX class 



Dim ssid As String 

Dim initialized As Boolean 

Dim result As String 
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Private Sub Commandl_Click ( ) 
'Add 

Dim key As String 
Dim val As String 
If (initialized = False) Then 
Start 

GoSub ende 
End If 

Text3.Text = " » 

RemoteControlComponentOCXl .proxyClearKeyValueList (ssid) 
key = "cmd" 
val = "Add" 

RemoteControlComponentOCXl . proxyAddKeyValue ssid; key, val 
key = "sumA" 
val = Text 1. Text 

RemoteControlComponentOCXl .proxyAddKeyValue ssid, key, val 
key = "sutnB" 
val = Text2.Text 

RemoteControlComponentOCXl .proxyAddKeyValue ssid, key, val 

val = RemoteControlComponentOCXl . executeModeEx (ssid, " CALLBACK_MODE " ) 

If ((val = "C") Or (val = "»)) Then 
i 

Else 

AddQueuedResult " " , val 
End If 
ende : 
End Sub 

Private Sub Command2_Click ( ) 
' Cancel 

If (Combol.ListCount > 0) Then 
pli = pli - 1 
Dim retb As Boolean 

retb = RemoteControlComponentOCXl . cancelCmdld (ssid, Combol.Text) 
End If 
End Sub 

Private Sub Command3_Click () 

' send AT event evt to AT channel chan 
Dim retb As Boolean 

retb = RemoteControlComponentOCXl . sndAtEvtChan (Text4 . Text , Text5 . Text) 
End Sub 

Private Sub AddSuspendO 
Commandl .Visible = False 
End Sub 

Private Sub AddResumeO 
Commandl .Visible = True 
End Sub 

Private Sub RemoteControlComponentOCXl_ATEvtChan (ByVal ChanName As String, 
ByVal evt As String) 
Text 6. Text = evt 
End Sub 
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Private Sub RemoteControlComponentOCXl_ReturnEvent (ByVal sID As String) 

1 Achtung: hier sind Ausgaben kritisch, anderer Thread und nur am stack 

valid! 
Dim retb As Boolean 
Dim key As String 
Dim val As String 
Dim keyl As String 
Dim vail As String 

RemoteControlComponentOCXl . setCurrentCommandMediator (sID) 
RemoteControlComponentOCXl . returnSetKeyValueToFirst (sID) 
retb = RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
key = RemoteControlComponentOCXl. re turnGet Current Key (s ID) 
val = RemoteControlComponentOCXl . returnGetCurrentValue (s ID) 
If ((key = "reply") And (val = "Add")) Then 

retb = RemoteControlComponentOCXl . returnGetNextKeyValue (s ID) 
key = RemoteControlComponentOCXl. re turnGetCurrentKey (s ID) 
val = RemoteControlComponentOCXl. returnGetCurrentValue (sID) 
If (key = "cooky") Then 

AddQueuedResult " " , val 
End If 

If (key = "percent") Then 

retb = RemoteControlComponentOCXl . returnGetNextKeyValue (s ID) 
keyl = RemoteControlComponentOCXl. returnGetCurrentKey (sID) 
vail = RemoteControlComponentOCXl . returnGetCurrentValue (s ID) 
AddMoreResult val, vail 

End If 

If (key = "NewState") Then 

retb = RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
keyl = RemoteControlComponentOCXl. re turnGetCurrentKey (s ID) 
vail = RemoteControlComponentOCXl. returnGetCurrentValue (sID) 
AddMoreResult val, vail 

End If 

If (key = "result") Then 

retb = RemoteControlComponentOCXl. returnGetNextKeyValue (sID) 
keyl = RemoteControlComponentOCXl. returnGetCurrentKey (sID) 
vail = RemoteControlComponentOCXl. returnGetCurrentValue (sID) 
AddEndResult val, vail 
End If 
End If 
End Sub 

Private Sub RemoteControlComponentOCXl_UpdateEvent (ByVal sID As String, 
ByVal sMessage As String) 
RemoteControlComponentOCXl . setCurrentCommandMediator (sID) 
If (sMessage = "ADD xoff") Then 

AddSuspend 
End If 

If (sMessage = "ADD xon") Then 

AddResume 
End If 
End Sub 

Private Sub AddQueuedResult (ByVal res As String, ByVal cmdid As String) 
Text3.Text = res 
Combo 1 .Add I tern (cmdid) 
If (Combol .ListCount = 1) Then 
Combo 1. Text = cmdid 
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End If 
End Sub 

Private Sub AddMoreResult (ByVal res As String, ByVal cooky As String) 

'more replies expected, adjust progressbar or any other evt processing 
Dim Message, Title, Default, MyValue 
If (res = "suspended") Then 

Text3.Text = "suspended, press Resume ..." 

Combol . Text = cooky 

GoSub el 
End If 

If (res = "resumed") Then 

Text3.Text = "Add cmd resumed" 

GoSub el 
End If 

If (res = "delayed") Then 

Text 3. Text = "cmd delayed ..." 

Message = "Suml is 0! Please enter a new value greater 0!" 
Title = "Suml InputBox" 
Default = "10" 

result = InputBox (Message, Title, Default) 

Text 1. Text = result 

Dim retb As Boolean 

If (Combol. Text <> " " ) Then 

retb = RemoteControlComponentOCXl . continueCmdld (ssid, 
Combol . Text , result ) 
End If 
GoSub el 
End If 

If (res = "continued") Then 

Text3.Text = "Add cmd continued!" 
GoSub el 
End If 

ProgressBarl .Value = res 
Text3.Text = 

el: 

End Sub 

Private Sub AddEndRe suit (ByVal res As String, ByVal cooky As String) 
'last one, no more replies expected, adjust progressbar 
Dim x As Integer 
Text3.Text = res 
ProgressBarl. Value = 0 
If (Combol .ListCount >= 1) Then 

For x = 1 To Combol .ListCount 

If (Combol .List (x - 1) = cooky) Then 
Combol .Removel tern (x - 1) 
If (Combol .ListCount >= 1) Then 
Combol. Text = Combol . List (0) 

Else 

'Combol. Text = "" 
End If 
End If 
Next 
End If 
End Sub 
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Public Sub initDispatch(ByVal svcf As String) 

RemoteControlComponentOCXl . initDispatch svcf 
End Sub 

Public Sub exitDispatch () 

RemoteControlComponentOCXl . exitDispatch 
End Sub 



Private Sub Start {) 

Dim retb As Boolean 
Dim rets As String 

ssid = RemoteControlComponentOCXl . loadCommandMediator ( "CKeyValueCM") 
retb = RemoteControlComponentOCXl . set Channel Name (ssid, " MEDC0M_M0D " ) 
rets = RemoteControlComponentOCXl. callProxyMethod (ssid, "SetNameTag" , 

" \KeyValueProxy\MEDCOMl\$ " ) 
retb = RemoteControlComponentOCXl. initATEvtChan (Text4 . Text) 
initialized = True 
End Sub 

Private Sub StoppO 

Dim rets As String 
Dim retb As Boolean 

rets = RemoteControlComponentOCXl . unloadCommandMediator (ssid) 
retb = RemoteControlComponentOCXl. exitATEvt Chan (Text 4. Text) 
End Sub 

Private Sub Resume_Click () 
1 Resume 

If ( Combo 1. Text <> "") Then 
Dim retb As Boolean 

retb = RemoteControlComponentOCXl. resumeCmdId( ssid, Combol.Text) 
End If 



End Sub 



Private Sub Suspend_Click ( ) 
1 Suspend 

If (Combol.Text <> "") Then 
Dim retb As Boolean 

retb = RemoteControlComponentOCXl. suspendCmdld (ssid, Combol.Text) 
End If 
End Sub 



Private Sub UserControl_Initialize ( ) 

' Text4 . Text = "MEDCOM_MOD » 

ProgressBarl .Min = 0 

ProgressBarl .Max = 100 

ProgressBarl .Value = 0 

initialized = False 

Text 1. Text = "3" 

Text2.Text = "7" 

Text3.Text = " " 
End Sub 



Private Sub UserControl_Terminate ( ) 
Stopp 
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End Sub 



1 .6.1 .3 View Component with RemoteControlComponentOCX - Example: frontend part on HTML 
Page running in CapGM GUI container generic executable 



SCapGM - CalcWeb 



iin||| jJEPR Bim^ K{Q ptions H elp 



Web-CapGM Enableded Asynchron 1: 1 Client/Server Communication Pattern 3; 



mm 




mm 



Suspend Resume 



7f000001tt0ac6tt00008030 <r 



I 



Web-CapGM Enableded Asynchron n:m Event Propagation Communication Pattern jf , 

'V-'. 

|mEDCOM_MOD j Channnel name - ' . ' 



; Channnel name 



m 



jDas ist ein AT Event! Event send to Channel name 



Jcalcbe:: MEDSW ArT Modality Event!! 



Event from Channel name 




// 

// 

// 

<html> 
<head> 



The complete HTML example Web frontend 
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<title>Calc CalcCapGM-HTML</title> 
</head> 



<body onload="Calc_Onload() » onunload="Calc_OnUnload() » background = 

"E:\src\calcasp5\calcasp5_Local\images\syngo_ppt_background.jpg 



<!--// 

<!--//« = « = 



Very Thin GUI for the calc application- 



<form method= "post" action-" - -WEBBOT-SELF- - " name="calc" > 

< i - -webbot bot="SaveResults" U-File= "f pweb : ///jprivate/f orm__results . 
S-Format="TEXT/CSV" S-Label - Fields = "TRUE" --> 

<HR> 

<p><FONT color=redxSTRONG>Web-CapGM Enableded Asynchron 1:1 
Client/Server Communication Pattern</STRONGx/FONTx/p> 
<p>< input name="Textl" size="9" value= n 3" > 

<input type= "button" value="Add" name= n Add" onclick= M Add_Click () » 
></p> 

<p>< input name="Text2" size="9" value="2" > 
<OBJECT classid=clsid:35053A22-85 89-HDl-B16A-00COF02 8362 8 height=15 
id=ProgressBarl width=70> 



<PARAM NAME 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME- 
<PARAM NAME= 
<PARAM NAME 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 



_ExtentX" VALUE="1588"> 
_ExtentY" VALUE="3 97"> 
_Version" VALUE="3 93 216"> 
"BorderStyle" VALUE= n 0"> 
"Appearance" VALUE="1" > 
"MousePointer" VALUE="0"> 
"Enabled" VALUE="1"> 
" OLEDr opMode " VALUE = " 0 " > 
"Min" VALUE="0"> 
"Max" VALUE="100"> 
"Orientation" VALUE=" 0 " > 
<PARAM NAME= n Scrolling" VALUE="0"> 
</OBJECT> 
</p> 

<p>< input name="Text3 " size="9" > 

<input type= "button" value= "Cancel " name= " Cancel " 

onclick="Cancel_Click () " > 
<input type="button n value=" Suspend" name=" Suspend" 

onclick="Suspend_Click() " > 
<input type= "button" value = "Resume" name = "Suspend" 

onclick="Resume_Click () " > 

</p> 

<p>  

<OBJECT classid=clsid:8BD21D3 0-EC42-llCE-9EOD-00AA006O02F3 height=24 

id= Combo 1 
width=169> 



<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 
<PARAM NAME= 



,r VariousPropertyBits" VALUE=" 746604 571 " > 

BackColor" VALUE= "2147483653 "> 

ForeColor " VALUE= " 2 14 74 8 3 65 6 " > 
"MaxLength" VALUE="0 n > 

BorderStyle" VALUE="0"> 

ScrollBars" VALUE="0"> 

DisplayStyle" VALUE="3"> 

MousePointer " VALUE= " 0 " > 

Size" VALUE="3413;635"> 
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<PARAM 


NAME= 


< PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME = 


< PARAM 


NAME= 


<PARAM 


NAME= 


< PARAM 


NAME= 


<PARAM 


NAME= 


< PARAM 


NAME= 


< PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME= 


< PARAM 


NAME = 


<PARAM 


NAME = 


<PARAM 


NAME = 


<PARAM 


NAME= 


< PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME= 


< PARAM 


NAME= 


< PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME= 


<PARAM 


NAME = 


< PARAM 


NAME= 1 



</OBJECT= 



"PasswordChar" VALUE="0"> 
"ListWidth" VALUE="0"> 
"BoundColumn" VALUE="1"> 
"Text Column" VALUE= " 65535 " > 
"ColumnCount" VALUE="1"> 
"ListRows" VALUE="8"> 
"cColumnlnfo" VALUE = 11 0" > 
"MatchEntry" VALUE="1"> 
"ListStyle" VALUE="0"> 
" ShowDropBut tonWhen " VALUE= "2"> 
"ShowListWhen" VALUE = 11 1"> 
"DropButtonStyle" VALUE="1"> 
"MultiSelect" VALUE="0"> 
"Value" VALUE=""> 
"Caption" VALUE=""> 
"PicturePosition" VALUE= "458753 "> 
" Border Color " VALUE = " 2147483654" > 
"SpecialEf feet" VALUE= n 2"> 
"Accelerator" VALUE="0"> 
" GroupName " VALUE= " " > 
"FontName" VALUE= 11 MS Sans Serif" > 
" Font Ef fects" VALUE= " 1073741824 " > 
"FontHeight" VALUE="165"> 
"FontOf f set" VALUE="0" > 
" FontCharSet " VALUE= " 0 " > 
"FontPitchAndFamily" VALUE="2"> 
"ParagraphAlign" VALUE="1"> 
" FontWeight " VALUE= " 4 0 0 " > 



<HR> 

<P><FONT color=redxSTRONG>Web-CapGM Enableded Asynchron&nbsp ; n:m 
Event Propagation Communication Pattern</STROMGx/FONTx/P> 
<P>< INPUT name=sendChanTxt size="24" readOnly> Channnel name</P> 
<P>< INPUT type=button size="100" onclick="SendChanEvt_Click () " value="Send 

Event with Channel Name" name=SendEvt ></P> 
<P>< INPUT name=sendEvtTxt size="24"> Event send to Channel name</P> 
<P>< INPUT name=rcvdEvtTxt size="56"> Event from Channel name</P> 
<HR> 



</form> 



<!--// RemoteControlComponentOCX Ole Event Handler declaration -- 

<l--// = ~« MM „ M „ = „ MM= „™ 



<OBJECT classid=clsid:B7AFED6F-E886-HD2-A3E6-00 04AC963A01 
id=RemoteControlComponentOCXlxPARAM NAME= "_Version" 
VALUE="65536"xPARAM NAME= "__ExtentX " VALUE =~" 2 6 4 6 " >< PARAM 
NAME="_ExtentY" VALUE= " 1 3 2 3 " x PARAM NAME= " StockProps" VALUE="0"> 

</OBJECT> 
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<script LANGUAGE = " JAVASCRIPT " FOR= "RemoteControlComponentOCXl » 
EVENT="ReturnEvent (ID) "> 

< I -- 

returnEvent (ID) 

- - > 

</script> 
<script 

LANGUAGE = "JAVASCRIPT" FOR- "RemoteControlComponentOCXl " 
EVENT = "UpdateEvent ( ID , sUpdateParam) " > 

< ! 

updateEvent ( ID , sUpdateParam) 

- - > 

</script> 
<script 

LANGUAGE^" JAVASCRIPT" FOR= "RemoteControlComponentOCXl » 
EVENT="ATEvtChan(chan, evt)"> 

<! -- 

ATEvtChan ( chan , evt ) 

- - > 

</script> 



<SCRIPT LANGUAGE = "JavaScript " > 

//= ============================ _ === _ ============= _ ================== _ 

// GUI Adapter to Web Business Logic via Scripting Language 

var ssid 
var key 
var val 
var keyl 
var vail 
var retb 
var x 

//===== == == ============================================================ 

// GUI Adapter for single command activation 

//====== == == =========================================================== 

function Add_Click() 
{ 

//rem Add 

/ / window . alert ( navigator . appName ) ; 
calc .Text 3 .value = " " 

document. RemoteControlComponentOCXl. proxyClearKeyValueList (ssid) 
key = "cmd" 
val = "Add" 

document . RemoteControlComponentOCXl. proxyAddKey Value (ssid, key, val) 

key = "sumA" 

val = calc. Text Lvalue 

document . RemoteControlComponentOCXl. proxyAddKeyValue (ssid, key, val) 

key = "sumB" 

val = calc .Text 2 .value 

document. RemoteControlComponentOCXl. proxyAddKeyValue (ssid, key, val) 
/ / document . RemoteControlComponentOCXl . execute (ssid) 
val = document . RemoteControlComponentOCXl. executeModeEx 

(ssid, " CALLBACK_MODE 11 ) 
if (val 1= "C") 
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{ 

AddQueuedResult ( " " , val ) 

} 

} 

function Cancel Click () 

{ 

//rem Cancel 

if (calc.Combol.ListCount > 0) 

{ 

rvall = document . RemoteControlComponentOCXl . cancelCmdld (ss id, 
calc . Combol . value) 

} 

} 

function Suspend_Click ( ) 

{ 

//rem Cancel 

if (calc. Combol. value i= "") 
{ 

rvall = document . RemoteControlComponentOCXl . suspendCmdld (ssid, 
calc. Combol .value) 

} 

} 

function Resume_Click () 

{ 

//rem Cancel 

if (calc .Combol .value != " " ) 

{ 

rvall = document .RemoteControlComponentOCXl. resumeCmdId( ssid, 
calc . Combol .value) 

} 

} 

// GUI Adapter for event propagation 

function SendChanEvt Click () 
{ 

// send AT event evt to AT channel chan 
document .RemoteControlComponentOCXl . sndAtEvtChan 
^ (document . calc . sendChanTxt .value, document . calc . sendEvtTxt .value) 

// RemoteControlComponentOCX Ole Event handlers 

function returnEvent ( ID) 

{ 

RemoteControlComponentOCXl_ReturnEvent ( ID ) 



function updateEvent (ID, sparam) 
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^ RemoteControlComponentOCXl_UpdateEvent (ID, sparam) 

function ATEvtChan (chan , evt) 

^ RemoteControlComponentOCX^ATEvtChanCchan, evt) 

function Remo teControl Component OCX l_ATEvt Chan (chan , evt) 
document . calc . rcvdEvtTxt . value = evt 

function RemoteControlComponentOCXl_ReturnEvent (sID ) 
//window. alert ( "return") 

// rem Achtung: hier sind Ausgaben kritisch, anderer Thread und nur am 
stack valid! 

document .RemoteControlComponentOCXl . setCurrentCommandMediator (sID) 
document .RemoteControlComponentOCXl . returnSetKeyValueToFirst (sID) 
retb = document . RemoteControlComponentOCXl. returnGetNextKeyValue (sID) 
key = document .RemoteControlComponentOCXl . returnGetCurrentKey (sID) 
val = document . RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
if ((key "reply") && (val == "Add")) 
{ 

retb = 

document .RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
key = document . RemoteControlComponentOCXl . returnGetCurrentKey ( s ID) 
val = 

document . RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
if (key == "cooky") 

{ 

AddQueuedResul t ( " » , val ) 

} 

if (key == "percent") 
{ 

retb = 

document . RemoteControlComponentOCXl . returnGetNextKeyValue (sID) 
keyl = 

document .RemoteControlComponentOCXl . returnGetCurrentKey (sID) 
vail = 

document .RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
AddMoreResult (val, vail) 

} 

if (key == "NewState") 
{ 

retb = 

document .RemoteControlComponentOCXl . returnGetNextKeyValue (s ID) 
keyl = 

document . RemoteControlComponentOCXl . returnGetCurrentKey (sID) 
vail = 

document .RemoteControlComponentOCXl. returnGetCurrentValue (sID) 
AddMoreResult (val, vail) 

if (key == "result") 
{ 
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retb = 

document . Remot eControlComponentOCXl . returnGe tNextKeyValue ( s ID ) 
keyl = 

document .RemoteControlComponentOCXl . returnGetCurrentKey (sID) 
vail = 

document .RemoteControlComponentOCXl . returnGetCurrentValue (sID) 
AddEndResult (val , vail) 

} 

} 

} 

function Remot eCont rolComponentOCXl_Updat eEvent (s ID , sm ) 

document .RemoteControlComponentOCXl . setCurrentCommandMediator (sID) 
if {sm == "ADD xoff") 

{ 

AddSuspend () 

} 

if (sm == "ADD xon") 

{ 

AddResume () 

} 

} 

// GUI Adapter for single command callbacks 

//=========================== M====S==================!B======M===M===== 

function AddQueuedResult (res, cmdid ) 

calc. Text 3 .value = res 

calc .Combol.Addltem (cmdid) 

if (calc.Combol.ListCount == 1) 

{ 

calc .Combol .value = cmdid 

} 

} 

function AddMoreResult (res , cooky ) 

if (res == "suspended") 
{ 

calc .Text 3 .value = "suspended, press Resume ..." 
calc. Combol. value = cooky // select first member in list 
return; 

} 

if (res == "resumed") 

{ 

calc. Text 3 .value = "Add cmd resumed" 
return; 

} 

if (res == "delayed") 
{ 

var theResponse 
calc. Text3 .value = "cmd delayed ..." 
theResponse = "10" 
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theResponse = window. prompt ( "Suml is 0! Please enter a new 
value greater 0 ! " , theResponse) ; 
calc .Textl .value = theResponse 
if (calc . Combol .value != 11 M ) 

retb = document .RemoteControlComponentOCXl . continueCmdld (ssid, 
calc . Combol . Text , theResponse) 
return; 

} 

if (res == "continued") 

{ 

var result; 
calc . Text3 .value = "Add cmd continued!" 
return; 

} 

// more replies expected, adjust progressbar 
calc . ProgressBarl .Value = res 
calc . Text 3 .value = "" 

} 

function AddEndResult (res , cooky) 

{ 

// rem last one, no more replies expected, adjust progressbar 
var x 

calc .Text 3 .value = res 
calc. ProgressBarl. Value = 0 

if (calc. Combol .ListCount >= 1) 

{ 

for ( x = 1 ; x <= calc . Combol . ListCount ; x++ ) 

{ 

if (calc . Combol . List (x - 1) — cooky) 

{ 

calc. Combol. Removel tern (x - 1) 
if (calc .Combol .ListCount >= 1) 

calc . Combol . text - calc . Combol . List (0) 

else 

calc. Combol. text = " " 

} 

} 

} 



function AddSuspendO 

calc .Add. disabled = true 



function AddResumeO 

calc .Add. disabled = false 



// =MM=M=5=M=M=SS=M=M=MM!=M 
// Init / Exit Handlers 
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function Calc Onload () 

{ 

var retb 
var rets 
var r 

calc.ProgressBarl.Min = 0 
calc . ProgressBarl .Max = 100 
calc . ProgressBarl .Value = 0 

document . calc . sendChanTxt .value = "MEDCOM MOD"; 

/ / document . RemoteControlComponentOCXl . initDispatch ( » " ) 

ssid = 

document .RemoteControlComponentOCXl . loadCommandMediator ( "CKeyValueCM 

retb = document.RemoteControlComponentOCXl.setChannelName(ssid, 
"MEDCOMJVIOD") 

rets = document. RemoteControlComponentOCXl. callProxyMethod (ssid, 

" S e t NameTag » # " \ \ Key Va lue Proxy \ \ MEDCOM 1 \ \ $ » ) 
retb = 

document . RemoteControlComponentOCXl . initATEvtChan (document . calc . send 

ChanTxt .value) ; 
calc . Text 1 .value = "4" 
calc. Text2 .value = "9" 
calc. Text 3 .value = 



function Calc OnUnloadO 
{ 

var rets 
var retb 

rets = document . RemoteControlComponentOCXl. unloadCommandMediator ( ssid) 
retb = 

document . RemoteControlComponentOCXl . exitATEvtChan (document . calc . send 
ChanTxt .value) ; 

^ / / document .RemoteControlComponentOCXl . exitDispatch () 

</SCRIPT> 

</body> 

</html> 



1.6.2 Controller (FSM) Component with RemoteControiComponentBackend 

The backend part is plugable typically in form of a syngo backend component (CsaGenericComponent derived 
class) winch allows dynamic loading using the concepts of AT. Another possibility is to connect the backend part 
of the RemoteControlComponentOCX into a non-visual MacroOCX . Note, all frontend parts written in different 
languages shown above (only the C++ one was really shown, of course) are able to run with one of the backends 
shown here, without additional programming, just via configuration, even within the same executable. That 
means, in all these mixed languages for frontend and backend, there is no process boundary needed in between 
when not explicitly wished. If it is wished to have this boundary, it can be reached just via reconfiguration. 

The frontends we have seen so far, are all allowed to connect to the following controller 
component without any modifications. 
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// 

// The Controller MacroOCX Ctrl class 

// 

// 

// the MacroOCX header file ... 

// 

// CalcctCtl.h: 

// Declaration of the CCalcctCtrl ActiveX Control class. 



/////////////////////////////////////////////////////////////////////// 

// CCalcctCtrl : See CalcctCtl . cpp for implementation. 

# inc lude " s t da f x . h " 

#include <AT/ CapExtRep . h> 

// ACE Guard 

#include <ace/Synch . h> 

//cmd 

#include <At/CapAtCmdObjBase .h> 
class pi; 
class rl; 
class conl; 

// if ocx 

class mycon; 

class CKeyValueReturn; 

// running object map of upper layer and lower layer proxy/ret requests 
class roe : public CObject 

{ 

public : 

CString cmdidu; 
Cap At Cmd I dTyp e i du ; 

CKeyValueReturn *ru; 
//' Operations 

}; 

//typedef CMap<CString, CString, roe, roe&> CroeMap; 
class CCalcctCtrl : public CapMacroOCXBase 
DECLAREJDYNCREATE (CCalcctCtrl) 

// Constructor 
public : 

CCalcctCtrl () ; 

// controller functions 

BSTR AddExecCB (CString &sl, CString &s2, CKeyValueReturn *ret) ; 
void AddCancel (CString fccooky, CKeyValueReturn *ret) ; 
void AddSuspend (CString ficcooky, CKeyValueReturn *ret) ; 
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void AddResume(CString &cooky, CKeyValueReturn *ret) ; 

void AddContinue(CString fccooky, CString &r, CKeyValueReturn *ret) ; 

void AddApp Events (LPCTSTR evt); 

void AddModEvents (LPCTSTR evt) ; 

bool Addlnit () ; 

bool AddExit () ; 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CCalcctCtrl) 
public : 

virtual void OnDraw(CDC* pdc, const CRectfc rcBounds, const CRect& 
rclnvalid) ; 

virtual void DoProp Exchange (CPropExchange* pPX) ; 

virtual void OnResetState ( ) ; 

//}}AFX_VIRTUAL 

// Implementation 

protected: 

afxjnsg BSTR GetName (LPCTSTR tokenld) ; 

-CCalcctCtrl () ; 



DECLARE__OLECREATE_EX (CCalcctCtrl) // Class factory and guid 

DECLARE_OLETYPELIB (CCalcctCtrl) // GetTypelnfo 

DECLARE_PROPPAGEIDS (CCalcctCtrl) // Property page IDs 
DECLARE_OLECTLTYPE (CCalcctCtrl) // Type name and misc status 

// Message maps 

// { {AFX__MSG (CCalcctCtrl) 

// NOTE - ClassWizard will add and remove member functions 

here . 

// DO NOT EDIT what you see in these blocks of generated 
code ! 

afx_msg int OnCreate (LPCRE ATE STRUCT lpCreateStruct) ; 
afx__msg void OnSize (UINT nType, int cx, int cy) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP () 

// Dispatch maps 

//{ {AFX_DISPATCH (CCalcctCtrl) 

/ / NOTE - ClassWizard will add and remove member functions 

here . 

// DO NOT EDIT what you see in these blocks of generated 
code ! 

//} }AFX_D IS PATCH 
DECLARE_D I S PATCH_MAP ( ) 

// Event maps 

/ / { {AFX__EVENT (CCalcctCtrl) 

// NOTE - ClassWizard will add and remove member functions 



here 

code 
//} }AFX_EVENT 



// DO NOT EDIT what you see in these blocks of generated 
code ! 
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DECLARE_EVENT_MAP () 
// Interface maps 
public : 

// Dispatch and event IDs 
enum { 

//{ {AFX_DISP_ID (CCalcctCtrl) 

// NOTE: ClassWizard will add and remove enumeration elements 

here . 

// DO NOT EDIT what you see in these blocks of generated 
code ! 

//} }AFXJDISP_ID 

}; 

private : 

// cmd 
pi *mpl; 
rl *mrl; 
conl *mconl; 
bool exited; 

public: 

// lock for pxy->execute + rom->add (cmdid) method (cmd-proc-thread) , 
// against conl->take method (mfc -main- thread) 
ACE_Thread_Mutex Lock; 

public : 

// interface OCX 
my con *mc ; 

// running object map 
enum { MAX_ROE = 20} ; 
CMapStringToOb rom; 

public : 

long CapGet Client Id (VARIANT FAR* signature); 
long Modal ityEvent (LPCTSTR eventString_in) ; 
long ApplicationEvent (LPCTSTR eventString_in) ; 
long SetAdapterObject (long objPtr) ; 
long SetStatusBarDispPtr (long FAR* argl) ; 
BOOL ShutdownRequest (BOOL RequestType) ; 
long Shutdown (long tf, const VARIANT FAR& f ) ; 
protected: 

long myCompAdapter ; 

}; 

//{ {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations 
immediately before the previous line. 

// 

// the MacroOCX implementation file ... 

// 

// CalcctCtl.cpp: 

// Implementation of the CCalcctCtrl ActiveX Control class, 
ttinclude " stdaf x . h" 
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#include "calcct . h" 
#include "CalcctPpg . h n 
#include "CalcctCtl . h" 



#include <AFXPRIV.H> 

#include "capstatusbar . h" 

#include <CsaCommon/CsaStringConvert . h> 

// if ocx 

#include "mycon. h" 

//cmd achtung, die 2 zeilen muessen vor dem unteren debug new sachen 

steheni ! 
ftinclude "Testcmd_j>rox . h" 
#include "Testcmd_ret . h" 

#include <CsaCommon/CsaStringConvert . h> 
class conl; 



#ifdef _DEBUG 

#def ine new DEBUG_NEW 

#undef THIS__FILE 

static char THIS_FILE[] = FILE ; 

#endif 



IMPLEMENTJDYNCREATE (CCalcctCtrl , CapMacroOCXBase) 

/////////////////////////////////////////////////////////////////////// 
// Message map 

BEGINJYIESSAGEJVIAP (CCalcctCtrl, CapMacroOCXBase) 
//{ {AFX__MSG__MAP (CCalcctCtrl) 

// NOTE - ClassWizard will add and remove message map entries 

// DO NOT EDIT what you see in these blocks of generated code ' 

ON_WM_CREATE ( ) 

ON_WM_SIZE () 

//} }AFX_MSG_MAP 

ON_OLEVERB (AFX_IDS_VERB_PROPERTIES , OnPropert ies ) 

//#define AT__MESSAGEMAP_DE FINES 

ON_C0MMAND_RANGE ( IDM_ADD_FIRST_ENTRY, IDM_ADD_LAST ENTRY , 
OnDynMenuI terns ) ~ 

ON_UPDATE_COMMAND_UI_RANGE(IDM_ADD_FIRST_ENTRY, IDM ADD LAST ENTRY 
OnUpdateLayout) ~ — ' 

END_MESSAGE_MAP ( ) 



/////////////////////////////////////////////////////////////////////// 
/ / Dispatch map 

B EG I N_D I S PATCH_MAP (CCalcctCtrl, CapMacroOCXBase) 
//{ {AFX_DISPATCH_MAP (CCalcctCtrl) 

// NOTE - ClassWizard will add and remove dispatch map entries 

// DO NOT EDIT what you see in these blocks of generated code ' 

DISP_STOCKPROP_FONT ( ) 
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// } }afx_dispatch_map 

END DISPATCH MAP() 



/////////////////////////////////////////////////////////////////////// 
// Event map 

BEGIN_EVENT_MAP (CCalcctCtrl , CapMacroOCXBase) 
//{ {AFX_EVENT_MAP (CCalcctCtrl) 

// NOTE - ClassWizard will add and remove event map entries 
// DO NOT EDIT what you see in these blocks of generated code \ 
//}} AFX_EVENT_MAP 
END EVENT MAP{) 



/////////////////////////////////////////////////////////////////////// 
// Property pages 

// TODO: Add more property pages as needed. Remember to increase the 
count i 

B E G I N_PRO P PAGE IDS (CCalcctCtrl, 1) 

PROPPAGEID (CCalcctPropPage : rguid) 
END PROPPAGEIDS (CCalcctCtrl) 



/////////////////////////////////////////////////////////////////////// 
// Initialize class factory and guid 

IMPLEMENTJDLECREATE_EX (CCalcctCtrl , "CALCCT . CalcctCtrl . 1 » , 

0x318b7da7, 0x8213, 0x46cb, 0x83, 0x74, 0xc5, 0x64, 0x60, Oxal, 
0x1a, 0x4b) 



/////////////////////////////////////////////////////////////////////// 
// Type library ID and version 

IMPLEMENTJ3LETYPELIB (CCalcctCtrl, __tlid, _wVerMajor, __wVerMinor) 



/////////////////////////////////////////////////////////////////////// 
// Interface IDs 

const I ID BASED_CODE IID_DCalcct = 

{ 0x318b7da5, 0x8213, 0x46cb, { 0x83, 0x74, 0xc5, 0x64 , 0x60, 
Oxal, 0x1a, 0x4b } } ; 
const I ID BASED_CODE IID_DCalcctEvents = 

{ 0x318b7da6, 0x8213, 0x46cb, { 0x83, 0x74, 0xc5, 0x64, 0x60, 
Oxal, 0x1a, 0x4b } }; 

/////////////////////////////////////////////////////////////////////// 
// Control type information 

static const DWORD BASED_CODE __dwCalcct01eMisc = 

OLEMI SC_S IMPLEFRAME | // for nested controls 

OLEMISC_ACTIVATEWHENVISIBLE | 
OLEMISCjSETCLIENTSITEFIRST | 
OLEMISC_INSIDE0UT | 
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OLEMISC_CANTLINKINSIDE | 
OLEMISC_RECOMPOSEONRESIZE; 

IMPLEMENT_OLECTLTYPE (CCalcctCtrl , IDS_CALCCT, _dwCalcct01eMisc) 

/////////////////////////////////////////////////////////////////////// 

// CCalcctCtrl: : CCalcctCtrlFactory : :UpdateRegistry - 

// Adds or removes system registry entries for CCalcctCtrl 

BOOL CCalcctCtrl: : CCalcctCtrlFactory : :UpdateRegistry (BOOL bRegister) 

// TODO: Verify that your control follows apartment -model threading 
rules . 

// Refer to MFC TechNote 64 for more information. 

//If your control does not conform to the apartment -model rules, 
then 

/ / you must modify the code below, changing the 6th parameter from 
// afxRegApartmentThreading to 0. 

if (bRegister) 

return AfxOleRegisterControlClass ( 
AfxGetlnstanceHandle () , 
m_clsid, 
m_lpszProgID, 
IDS_CALCCT, 
IDB_CALCCT, 

afxReglnsertable | afxRegApartmentThreading, 

_dwCalcct01eMisc / 

__tlid, 

_wVerMajor, 

_wVerMinor) ; 

else 

^ return AfxOleUnregisterClass (m_clsid, m__lps2ProgID) ; 

/////////////////////////////////////////////////////////////////////// 
// CCalcctCtrl: : CCalcctCtrl - Constructor 

CCalcctCtrl: : CCalcctCtrl ( ) 

{ 

InitializellDs (&IID_DCalcct , &IID_DCalcctEvents) / 
^ // TODO: Initialize your control's instance data here. 

/////////////////////////////////////////////////////////////////////// 
// CCalcctCtrl: : -CCalcctCtrl - Destructor 

CCalcctCtrl : : -CCalcctCtrl () 
{ 

// TODO: Cleanup your control's instance data here. 

if (! exited) 

AddExit () ; 

} 
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/////////////////////////////////////////////////////////////////////// 

// CCalcctCtrl: :OnDraw - Drawing function 

void CCalcctCtrl : :OnDraw{ 

CDC* pdc, const CRect& rcBounds, const CRect& rclnvalid) 

// TODO: Replace the following code with your own drawing code. 
/ /pdc->FillRect (rcBounds, 

CBrush: :FromHandle ( (HBRUSH) GetStockObj ect (WHITE_BRUSH) ) ) ; 
//pdc ->Ellipse (rcBounds) ; 



/////////////////////////////////////////////////////////////////////// 
// CCalcctCtrl : :DoPropExchange - Persistence support 

void CCalcctCtrl: :DoPropExchange(CPropExchange* pPX) 

ExchangeVersion (pPX, MAKE LONG (__wVerMinor , __wVerMaj or) ) ; 
CapMacroOCXBase : :DoPropExchange (pPX) ; 

// TODO: Call PX_ functions for each persistent custom property. 

} 

/////////////////////////////////////////////////////////////////////// 
// CCalcctCtrl: : OnResetState - Reset control to default state 

void CCalcctCtrl: :OnResetState() 

CapMacroOCXBase: : OnResetState () ; // Resets defaults found in 
DoPropExchange 

^ // TODO: Reset any other control state here. 

// CCalcctCtrl message handlers 

int CCalcctCtrl: :OnCreate (LPCREATESTRUCT lpCreateStruct ) 

if (CapMacroOCXBase: :OnCreate (lpCreateStruct) == -1) 
return -1; 

/ /m_menu->LoadMenu (IDR_CALCCT_JVEENU) / 
//AfxMessageBox (_T ( "oncreate" ) ) ; ~ 
return 0; 

} 

void CCalcctCtrl: :OnSize(UINT nType, int cx, int cy) 
CapMacroOCXBase: : OnSize (nType , cx, cy) ; 
//MEDSW ArT: Resize Dig 



// 

// please override this method 

BSTR CCalcctCtrl: :GetName (LPCTSTR tokenld) 
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{ 

CString strResult (_T ( "Calcct " ) ) ; 
return strResult . AllocSysString () ; 



long CCalcctCtrl : : CapGetClientlci (VARIANT FAR* signature) 

// MEDSW ART: SPECIFY YOU CLIEMT_ID ( IDS_CALCCT_CLIENTID) IN THE 
STRINGJTABLE RESOURCE 
signature- >vt = VT_BSTR; 

CString clientID (_T ( » » ) ) ; client ID . LoadString (IDS_CALCCT_CLIENTID) 
signature- >bstrVal = clientID .AllocSysString () • 
return 0; 

} 

long CCalcctCtrl: : SetStatusBarDispPtr (long FAR* argl) 
/*] END Method */ 

{ 

CapMacroOCXBase: : SetStatusBarDispPtr (argl); //call the base class 
method ! 

//MEDSW ART: CapStatusBar : 

LPDISPATCH aDisp = 0; 

aDisp = (LPDISPATCH) argl; 

_DCapStatusBar pdisp; 

pdi sp. At tachDi spat ch (aDisp, TRUE) ; 

pdisp . SetStatusPos (2 ) ; 

pdisp. DetachDispatch () ; 

return 0; 

} 

BOOL CCalcctCtrl: :ShutdownRequest (BOOL RequestType) 
^ return true; // shutdown granted 

// relevant start 

long CCalcctCtrl :: Shutdown (long tf, const VARIANT FAR& f) 

AddExit () ; 
return 0; 

} 

long CCalcctCtrl: : SetAdapterObj ect (long objPtr) 

//MEDSW_ART: ADD CODE TO HANDLE THE COMPONENTADAPTERPTR 
CapMacroOCXBase : : SetAdapterObj ect (ob j Ptr ) ; 
myCompAdapter = objPtr; 

//MEDSW ART: EXAMPLE CODE FOLLOWS 
bool ret= this - >AddInit ( ) ; 
return 0; 

} 



long CCalcctCtrl : : Modal ityEvent (LPCTSTR eventString_in) 
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{ 

//MEDSW_ART: ADD CODE TO HANDLE THE INCOMMING APPLICATION -EVENTS 
AddModEvents ( events tring__in) ; 

return 0; 

} 

long CCalcctCtrl: : ApplicationEvent (LPCTSTR eventString_in) 

//MEDSW_ART: ADD CODE TO HANDLE THE INCOMMING APPL I CAT I ON -EVENTS 
AddAppEvents (eventString_in) ; 

return 0; 



// upper half / Dialog Interface 



/ / cmd mediator zwischen dialog und reply delivery 
class conl : public CAbstrCons 

{ 

public : 

conl (CCalcctCtrl* c) {my_ctl = c /}; 
void take (CapAtCmdReturnBase*) ; 
private : 

CCalcctCtrl *my_ctl; 

// hier evtl. das return object eines Interface OCX consumers 
aufbewahren 

// und verwenden zum reply schicken, wenn die take methode hier 
gerufen wird. 

}; 

//cmd -> reply trifft ein -> MFC MAin Thread 
void conl: : take (CapAtCmdReturnBase* r) 

// set mfc module state 

AFX_MANAGE_STATE (Af xGetStaticModuleState ( ) ) ; 
/ / lock between main thread and workingbox thread 
ACE_Guard<ACE_Thread_Mutex> aMon (my_ctl - >Lock) ; 

rl* ret ={rl*)r; 

CapAtCmdldType cmdid^ret- >getCmdId ( ) ; // Identisch mit der Cmdld, 
die das 

Proxy pi hatte welches diese ^ 

rl Return Object Instance in seinem ^ 

pl->execute (rl) angab. ^ 
1/ restore from running object map 
roe *re; 
CString sid; 

bool erg=my_ctl->mc->cmdid2Cstr (cmdid^sid) ; 

BOOL found=my_ctl->rom. Lookup (sid, (CObject *&)re)- 

if {! found) 

{ 

/ /Af xMessageBox (_T ( "error in rom lookup I " ) ) ; 
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return; 

} 

/ / client return ptr vor cmdid setzen 
CString retid=_T ( " » ) ; 

retid. Format (_T ( "%08x_%s") , (long) re->ru->getData () , re->cmdidu) ; 

if ( (ret->getMoreFlag() ) ==false) 
{ // last reply 

int result = ret->getC(); 

CString str_result ( JT ( » " ) ) ; 

str_result .Format (JT("%d") result) ; 

/ /my_ct 1 - >mc - >AddEndResul t ( s tr_resul t , re - >ru , re - >cmdidu) ; 
my_ctl->mc->AddEndResult (str_result, re- >ru, retid) ; 
re->ru->destroy() ; // destroy the return checked out via 

keep retval 

BOOL rt=my_ctl->rom.RemoveKey(sid) ; // remove key from map 
^ delete re; // delete running object map entry 

else 

{ // more replies expected, adjust progressbar 
CString str <_T { " " ) ) ; 

//my_ctl->mc->AddMoreResult (str , ret- >getC () , re->ru, re->cmdidu) 
^ my_ctl->mc->AddMoreResult (str , ret->getC () , re->ru, retid) ; 

ret ->autoDes troy () ; 

// lower half 

bool CCalcctCtrl: rAddlnit () 
{ 

// first create lower half objects (proxies to BE commands) 
mpl=pl: : create () ; // create lower half proxy (once per 

component) . 

mconl=new conl(this); // create abstract consumer fro lower half 
replies 

// next create upper half objects (interf aceCO) 
mc = new mycon(this); 
exited = false; 
return true; 

} 



bool CCalcctCtrl : :AddExit () 

// first delete upper half objects (interf aceCO) 
mpl->destroy() ;// delete lower half proxy (once per component), 
delete mconl; // delete abstract consumer fro lower half replies 
// next delete lower half objects (proxies to BE commands) 
delete mc; // ifocx 
exited = true; 
return true; 

} 



// will be called by ifocx: :take method 
:alcctCtrl : : AddExecCB (CSt 

// set mfc module state 



BSTR CCalcctCtrl:: AddExecCB (CString &sl, CString &s2 , CKeyValueReturn *ret) 
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AFX_MANAGE_S TATE (Af xGetStat icModuleState ( ) ) ; 
// lock between main thread and workingbox thread 
ACE_Guard<ACE_Thread_Mutex> aMon(Lock) / 

// translate string values from GUI into typed data values 

int suml = _wtoi (LPCTSTR (si) ) / 

int sum2 = _wtoi (LPCTSTR (s2 )) ; 

// set attributes in proxy with typed values 

mpl->setA(suml) ; // lower half proxy business data 

mpl->setB(sum2) ; // lower half proxy business data 

// create a transfer specific return object & set the consumer 

mediator object ptr into that return object 

mrl=rl : : create () ; // create return instance before the lower half 
execute 

mrl->myAbstractConsumer = mconl; // set abstract consumer for reply 

// transfer the proxy & return instances to the command object 
server asynchron 

// proxy cmdid wird intern nun an das return object uebertrageni 
mpl->execute ( mrl) ; // execute lower half command in callback mode 

// get cmd request id from proxy (same has the return later on as 
well I 

CapAtCmdldType id= mpl->getCmdId () ; // get the unique request 
sequence cmdid 
CString s (JT ( » » ) ) ; 

bool r=this->mc->cmdid2Cstr(id,s) ; // cmdid-obj to string conversion 

// store into running object map 

roe *re = new roe(); 

re->cmdidu=s; // CString 

re->idu=id; // CapAtCmdldType 

re->ru=ret; // CapAtCmdReturnBase 

rom.SetAt (s,re) ; // store in running object map 

// client return ptr vor cmdid setzen 
CString retid=_T ( " " ) ; 

ret id. Format (_T ( "%0 8x_%s" ) , (long) ret- >getData ( ) ,s) ; 

//this->mc->AddQueuedResult (s, ret, s) ; reply 
RemoteControlComponentOCX with request id 
this->mc->AddQueuedResult {retid, ret, retid) / // reply 
RemoteControlComponentOCX with request id 
return s . AllocSysString ( ) ; 



// will be called implicitely by the preTake method 

void CCalcctCtrl: :AddCancel (CString &s, CKeyValueReturn *ret) 

CapAtCmdldType id; 

// string to object conversion 

bool r=this->mc->Cstr2cmdid(s, id) ; 

// the proxy is reused, but the sequence id changes per execute 
mpl->cancel (&id) ; 

} 

//will be called implicitely by the preTake method 

void CCalcctCtrl: :AddSuspend (CString &s, CKeyValueReturn *ret) 
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CapAtCmdldType id; 

// string to object conversion 

bool r=this->mc->Cstr2cmdid (s, id) / 

// the proxy is reused, but the sequence id changes per execute 
mpl->pause (true , &id) ; 

} 

// will be called implicitely by the preTake method 

void CCalcctCtrl : : AddResume (CString &s, CKeyValueReturn *ret) 

{ 

CapAtCmdldType id; 

// string to object conversion 

bool r=this->mc->Cstr2cmdid (s , id) ; 

// the proxy is reused, but the sequence id changes per execute 
mpl->pause (false, &id) ; 

} 

// will be called implicitely by the preTake method 

void CCalcctCtrl : :AddContinue (CString &s, CString &r, CKeyValueReturn *ret) 

{ 

CapAtCmdldType id; 

// string to object conversion 

bool retw=this->mc->Cstr2cmdid(s, id) ; 

// the proxy is reused, but the sequence id changes per execute 
// feed in the result r which was given by client into this proxy" 
// 

// the entire proxy will be sent, incl . all data structures ... 
mpl->setResult (r) ; 
mpl->resume (&id) ; 

} 

// 

void CCalcctCtrl : -.AddApp Events (LPCTSTR evt) 
{ 

// Af xMe s sage Box (evt ) ; 

if (_tcsicmp(evt,_T( M xoff ") ) == 0) 

{ 

// disable add button 
mc - > AddSuspend ( ) ; 

} 

if (_tcsicmp (evt ,_T ( "xon") ) == 0) 

{ 

// enable add button 
mc->AddResume () ; 

} 

} 

void CCalcctCtrl: : AddModEvents (LPCTSTR evt) 

{ 

} 

// 

// the KeyValueCOConsumer (RemoteControlComponentOCX-BE) header file ... 
// 

#ifndef mycon_H 
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#define mycon_H 

//#include <at/CsaGenericComponent .h> 
// wb 

#include <wb/CsaWorkingBoxDef ines . h> 

#include "Cac/KeyValueCO .h" 
#include " Cac / KeyValueProxy . h" 
#include "Cac/KeyValueReturn . h" 
#include "Cac/CMNotif ier . h" 
#include "Cac/KeyValueCOConsumer .h" 

class CCalcctCtrl; 

class CsaWorkingBoxFactory ; / / wb 

class mycon : public KeyValueCOConsumer 

{ 

public : 

mycon ( ) ; 

mycon (CCalcctCtrl *cp) ; 
virtual -mycon (); 
bool start ();// init code 
bool stop(); // exit code 
void setCompType (const CString& msg) ; 
CString getCompType () ; 

virtual BOOL take (C Key Value CO* co, CKeyValue Proxy* proxy, 
CKeyValueReturn* ret) ,- 
sendCOEvent (const CStringk msg) ; 

void cancel (CString& mid, CKeyValueReturn* ret) ; 

void suspend (CSt ring & mid, CKeyValueReturn* ret) ; 

void resume (CSt ring & mid, CKeyValueReturn* ret); 

void continueEx (CStringSc mid, CStringk r, CKeyValueReturn* ret) ; 
void AddQueuedResult (CString &res, CKeyValueReturn *ret, CString 
idl) ; 

void AddEndResult (CString &res, CKeyValueReturn *r, CString idl) ; 
void AddMoreResult (CString &res, int progress, CKeyValueReturn *r, 
CString idl) ; 
void AddSuspendO ; 
void AddResumeO; 

// helper routines for cmd_id to string conversion, 

// can be replaced via new API on CapAtCmdldType if available from 
Lutz in VA51 

bool cmdid2Cstr (CapAtCmdldType &id, CString &sid) ; 
bool Cstr2cmdid (CString Scsid, CapAtCmdldType &id) ; 
CCalcctCtrl *my_ctrl; 
private : 

CKeyValueCO* myKeyValueCO ; // cmd 
CString compType; 

CsaWorkingBoxFactory* myWBF; / / wb 
CsaWorkingBoxIdType wbidl; // wb 

}; 

#endif 

// 
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// the KeyValueCOConsumer (RemoteControlComponentOCX-BE) implementation 
file ... 

// 

//#define ACE_BUILD_SVC_DLL 

#include <CsaCommon/CsaStringConvert . h> 
#include "mycon . h " 
#include "CalcctCtl . h" 

#include <wb\CsaWorkingBoxFactory . h> / / wb 
mycon: : mycon () 

{ 

} 

mycon: : mycon (CCalcctCtrl *cp) 

{ 

my_ctrl=cp; 
int r= start () ; 

} 

mycon : : -mycon ( ) 

{ 

int r= stop () ; 

} 

// 

bool mycon : : start ( ) 

{ 

myWBF=CsaWorkingBoxFactory : : instance () ; / / wb 
myWBF->create (wbidl) ; // wb 

myKeyValueCO = CKeyValueCO :: create ( (const char 

*) 0,true,CapAtCtadNoWBoxId, (void *) 0, »\ \Key Value Proxy \ \ MEDC0M1\\$ » ) 
/ / cmdl cmd 

myKeyValueCO- >setWBoxID (wbidl) ; // wb 
myKeyValueCO- initialize (this, " MEDCOM__MOD " ) ; // med 
this ->setKeyValueCO (myKeyValueCO) ; // med 

// inform ACOX that I am working as a controller component not as 
business component 

this->setCompType (_T ( "$$$BEcontrollerBE$$$ » ) ) ; 
this->sendCOEvent (this- >getCompType () ) ; 
return true; 

} 

bool mycon: : stop () 
{ 

// 1) stop accepting new commands going into Command Processor 
myKeyValueCO- > terminate () ; //cmd 
// 2) stop and destroy the working box 
myWBF- >des troy (wbidl) ; // wb 

// 3) wait until the working box thread has really shut down 
myWBF->synch(&wbidl / l) ; // wb 

// 4) now it is safe to destroy the command object since none is 
running anymore 

myKeyValueCO- >destroy() ; //cmd 
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return true; 

} 

// 

void mycon: :setCompType (const CString& msg) 
compType=msg; 



CString mycon: : get Comp Type ( ) 
return compType; 



// 

//-> Command Processor Thread or Working Box Thread 

BOOL mycon: : take (CKeyValueCO *co, CKeyValueProxy *proxy, CKeyValueReturn 
*ret) 

{ 

AFX_MANAGE_S TATE (Af xGetStat icModuleState ( ) ) ; 
// has to be called! 

BOOL r=thi s->preTake( co ,proxy, ret ,this->get CompType () ) ; // check for 
internal key/val 

proxy- >setKeyValueToFirst {) / 
CString cmdkey; 
CString cmdval; 

proxy- >getNextKeyValue (cmdkey, cmdval) ; 

if ( (cmdkey ==_T("cmd" ) ) ( cmdval- =_T ( "Add" )) ) 

CString sumlkey; 
CString sumlval; 

proxy- >getNextKeyValue (sumlkey, sumlval) ; 

CString sum2key; 
CString sum2val; 

proxy- >getNextKeyValue (sum2key, sum2val) ; 

// store client site return ptr 
ret->setData(proxy->getData() ) ; 

CString cooky=my_ctrl->AddExecCB (sumlval, sum2val / ret) ; 

ret->setKeepUp () ; 
return (TRUE) ; 

} 

return (TRUE) / 

} 

// 

mycon: : sendCOEvent (const CString& msg) 

cout « "IntfOCX_be: : mycon :: sendCOEvent" << endl ; 
this->myKeyValueCO->sendCMEvent (msg) ; 
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} 

// 

void mycon: : cancel (CString& mid,CKeyValueReturn* ret) 
{ 

my__ctrl->AddCancel (mid, ret) ; 

} 

void mycon: : suspend (CString& mid, CKeyValueRe turn* ret) 
{ 

my_ctrl->AddSu spend (mid, ret) ; 

} 

void mycon: icontinueEx (CString& mid,CString& r, CKeyValueReturn* ret) 

{ 

my_ctrl->AddContinue (mid, r,ret) ; 

} 

void mycon :: resume (CString & mid, CKeyValueReturn* ret) 

{ 

my__ctrl->AddResume (mid, ret) ; 

} 

// 



void mycon: : AddQueuedResult (CString Sires, CKeyValueReturn *ret, CString 
idl) 

{ 

/ / give the first reply back to client and hand out a sequence id 
idl 

ret->clearKeyValueList 0 ; 
ret->setKeyValueToFirst () ; 
ret->addKeyValue ( "reply" , "Add" ) ; 
ret ->addKey Value ( "cooky" , idl) / 
ret->reply (true) ; 

} 

void mycon: : AddMoreResult (CString &res, int progress, CKeyValueReturn 
*ret, CString idl) 

{ 

// give the second till n-th. reply back to client and hand out 

// performed percentage and sequence id idl 

ret->clearKeyValueList () ; 

ret->setKeyValueToFirst () ; 

ret->addKeyValue ("reply", "Add") / 

char txt [2 0] ; 

switch (progress) 

{ 

case -1: // suspended 
{ 

sprint f (txt, ("%s") , "suspended") ; 
CString percent (txt) ; 
ret->addKeyValue ("NewState" , percent) ; 

} 

break; 



} 



case -2: // resumed 
{ 

sprintf (txt, ("%s") , "resumed") ; 

CString percent (txt ) ; 

ret - >addKeyValue ("NewState", percent) ; 

break; 

case -3: // delayed = suspend () 

sprintf (txt, ("%s") , "delayed") ; 
CString percent (txt) ; 

ret->addKeyValue ( "NewSt ate" , percent) / 
break; 

case -4: // continued = resume () on client called! 

sprintf (txt, ("%s") , "continued") ; 
CString percent (txt) ; 

ret - >addKeyValue ( "NewState " , percent ) ; 
break; 

default: // running in percent of completion 

sprintf (txt, (»%d») , progress) ; 
CString percent (txt ) ; 
ret->addKeyValue ( "percent " , percent ) ; 

break; 

} 

ret ->addKeyValue(" cooky -Mdl) ; // cmdid cooky of the lower level 
cmdi 

ret ->reply (true) ; 



void mycon: : AddEndResult (CString &re S/ CKeyValueReturn *ret, CString idl) 

ret->clearKeyValueList () ; 
ret->setKeyValueToFirst () ; 
ret ->addKeyValue ("reply" , "Add") ; 
re t->addKeyValue ("result" , res) ; ' 

ret^addKeyValueC'cooky'Mdl); // cmdid cooky of the lower level 
cmd ! 



} 

II- 



ret->reply (false) ; 



void mycon: : AddSuspend ( ) 

this - >sendCOEvent ( "ADD xoff"); 

void mycon: :AddResume () 

this - >sendCOEvent ( "ADD xon") ; 
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// 



bool mycon: :cmdid2Cstr (CapAtCmdldType &id, CString &sid) 
{ 

//CapAtCmdldType id= mpl->getCmdId () ; 
unsigned long inet=id.getlnet () ; 
unsigned short lport=id. getLPort () ; 
unsigned long uid=id. getuid () ; 
char buf [2 56] ; 

sprintf (buf, "%0 8x#%04x#%08x" , inet , lport , uid) ; 
sid=buf ; 
return true; 

} 

bool mycon: :Cstr2cmdid (CString &sid, CapAtCmdldType &id) 
{ 

char buff [200] ; 

CSA__CSTRING_TO_ASCII (sid, &buf f [0] ) ; 
unsigned long inet; 
unsigned short lport; 
unsigned long uid; 
// sscanf (buff, " %08x#%04x#%08x M , &inet , Alport , &uid) ; 

char *p; // adajust buffer because possible return ptr at beginning 
if (buf f [8] =='_■ ) p=&buff[9]; else p=&buf f [0] ; 
sscanf (p, "%08x#%04x#%08x n , &inet , Alport , &uid) ; 

id. set Inet (inet) ; 
id . setLPort (lport) ; 
id . setuid (uid) ; 
//id (inet , lport , uid) ; 
return true; 

} 



1.6.3 Model (service) Component with business logic implementation (where the real calculation 
takes place) 

The model (business logic) component is now the lowest layer of the application model. It is 
implemented as a backend component derived from CsaGenericComponent standard (see 
more in the software IC standard about this) as shown below: 

// 

// the calcbe GenericComponent header file ... 

// 

#ifndef calcbe_H 
#define calcbe_H 

#include <at/ CsaGenericComponent . h> 
// wb 

#include <wb/CsaWorkingBoxDef ines .h> 
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ACE_SVC_FACTORYJDECLARE (calcbe) 
class cl; //cmds 

class CsaWorkingBoxFactory; // wb 

class ACE__Svc__Export calcbe : public CsaGenericComponent 

{ 

public : 

calcbe () ; 
-calcbe {) ; 

int info (char**, size_t = 0) const; 
int suspend (void) ; 
int resume (void) ; 
int svc (void) ; 
int open (void *thePtr) ; 
int close (unsigned long) ; 

protected: 

int do_service (ACE_Message__Block *) ; 
bool processArgs (int key, char *arg) ; 
int getConcurrencyLevel (void) ; 

void handleApplicationEvent (char *) ; // incoming application 
event 

void handleModalityEvent (char *) ; // incoming modality event 

bool handle Shut downRequest (bool p, // incoming shutdown request 

LPTSTR *addText) ; 

CsaWorkingBoxFactory* myWBF; // wb 
CsaWorkingBoxIdType wbidl; // wb 

private : 

//MEDSW ArT: Add private Member hear 
cl *mycmdl; //cmds 

}; 

#endif 

// 

// the calcbe GenericComponent implementation file ... 

// 

#define ACE_BUILD_SVC_DLL 
#include "calcbe. h" 

#include n Testcmd_cmd.h n //cmd 

#include <wb\CsaWorkingBoxFactory . h> // wb 



calcbe : :calcbe () 

: CsaGenericComponent (this) 

{ 
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//MEDSW ArT: Init private Member here 
mycmdl=0; //cmd 
wbidl=0; //wb 



alcbe: : -calcbe () 

//MEDSW ArT: Add source code here 



nt calcbe :: info (char** , size_t ) const 

cout << «(» « ACE_OS: :thr_self () << ") calcbe :: info () " << endl; 
return 0 ; 



int calcbe :: suspend (void) 

cout << " (" << ACE_0S : : thr_self () << ") calcbe :: suspend () ,f << endl; 
CsaGenericComponent : : suspend () ; 
return 0; 



int calcbe: -.resume (void) 

cout << "(" << ACE_0S : :thr_self () << " ) calcbe :: resume () " << endl; 
CsaGenericComponent: : resume () ; 
return 0; 



int calcbe:: open (void *thePtr) 



//MEDSW ArT: Add code here 

cout << "(" << ACE_0S: :thr_self () << ") calcbe :: open () 11 << endl; 

myWBF=CsaWorkingBoxFactory :: instance () ; // wb 
myWBF->create (wbidl) ; // wb 

mycmdl=cl :: create () ; //cmd 

mycmdl~>setUserData ( (void *)this); // cmd + events 
mycmdl~>setWBoxID (wbidl) ; // wb 
return 0; 



int calcbe : : svc ( ) 
{ 

while (1) 
{ 

cout << 11 (" << ACEJDS: :thr_self () « ") calcbe: : svc () 11 << endl; 

this->do_service (0) ; 

if ( isTerminationRequest Pending () ) 

{ 

cout << "calcbe :: svc () detected cancellation: 11 ; 
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cout << "aborting!" << endl; 
return 0 ; 

} 

} 

return 0; 

} 

int calcbe: : close (unsigned long val) 

{ 

//MEDSW ArT: Add source code here 

cout << »(" << ACE_OS : :thr_self () << ") calcbe :: close () " << endl; 

// 1) stop accepting new commands going into Command Processor 

mycmdl->terminate () ; //cmd 

// 2) stop and destroy the working box 

myWBF->destroy (wbidl) ; // wb 

// 3) wait until the working box thread has really shut down 
myWBF->synch Uwbidl, 1) ; // wb 

// 4) now it is safe to destroy the command object since none is 
running anymore 
mycmdl->destroy () ; //cmd 



} 



return 0; 



bool calcbe : :processArgs (int key, char *val) 
{ 

cout << " (" << ACE_OS : : thr_self () << ") calcbe : :processArgs () " << endl; 
switch (key) 

{ 

//MEDSW ArT: Define your cases here 
default : 

cout << "calcbe: No match found for: 11 << (char) key << endl; 
return false; 

} 

} 

int calcbe : : getConcurrencyLevel ( ) 

{ 

//MEDSW ArT: Please return you concurrency level here 
cout << »(" << ACE_OS: :thr_self () << ") 
calcbe : : getConcurrencyLevel () " << endl; 
return 1; 

} 

int calcbe :: do_service (ACE_Message_j31ock *mb) 

{ 

//MEDSW ArT: Add source code here 

cout << "calcbe: :do_service() " << endl; 

if ( !notifyApplication("calcbe: : MEDSW ArT Application Event! I")) 
cout << "calcbe: : Error sending Application Event " << endl; 

if ( inotifyModality ("calcbe: : MEDSW ArT Modality Event! ! ") ) 

cout << "calcbe:: Error sending Modality Event " << endl; 
ACE_OS: : sleep (5) ; 
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return 0; 

} 

void calcbe : :handleApplicationEvent (char *theEvent) 

{ 

//MEDSW ArT: Add source code here 

cout << "calcbe: : handle ApplicationEvent : <" « theEvent << ">" « 
endl ; 

} 

void calcbe : :handleModalityEvent (char *theEvent) 

{ 

//MEDSW ArT: Add source code here 

cout << "calcbe : :handleModalityEvent : <" << theEvent << ">" << endl; 

} 

bool calcbe: : handleShutdownRequest (bool p, LPTSTR *addText) 

{ 

//MEDSW ArT: Add source code here 

cout << "calcbe :: handleShutdownRequest : "<< endl; 
return TRUE; 

} 

ACE SVC F ACTOR Y_DE FINE (calcbe) 



1.6.4 Appendix: ATOMIC based Command Proxy/Return connecting controller to Model(service) 

The controller component is using a command proxy/return interface (based on ATOMIC 
standard) to a model command object implementation. Tis proxy/return dll is linked to both, 
the controller component (as the client) and the model component (business logic) command 
object dll (the server). 

// 

// the business proxy/return object header file ... 

// 

/ / Te s t cmd__p r ox . h 

#ifndef CAP_AT_CMD_PROX_Testcmd_H 
#define CAP_AT_CMD_PROX_Testcmd_H 

#include <At/CapAtCmdProxRetBase . h> 
#include <CsaCommon/CsaDef s .h> 

#ifdef BUILD_CapAtProxTestcmd 
#define EXP_IMP_CapAtProxTe stand 
#else 

#define EXP_IMP_CapAtProxTestcmd 
#endif 



CSA__EXPORT 
CSA IMPORT 



//pi BEGIN 

class EXP_IMP_CapAtProxTestcmd pi : public CapAtCmdProxyBase 
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{ 

DECLARE_PROXY (pi) 
public : 

void setResult (CString &f oo) ; 
void setA(int foo=0) ; 
void setB(int foo=0) ; 
CString getResult (void) ; 
int getA(void) ; 
int getB (void) ; 

//MEDSW ArT: 

protected: 

//MEDSW ArT: For all members you have corresponding Get/Set 
methodes 

void copyHook (const pl& class_in ); 
private : 

int pvall; 
int pval2; 
CString res; 

//MEDSW ArT: Define your data here 

}; 

//pi END 



// _ 

// the business proxy/return object implementation file ... 

// 

//Testcmdjrox. cpp 
#include <iostream.h> 
#include <At/CapAtMacDef .h> 
#include "Testcmd_jprox .h" 



//pi BEGIN 

IMPLEMENT_PROXY ( pi, G( pvall ) G( pval2 ) C( res) PROXY_EXT ) 

void pi :: copyHook (const pl& c_in) 
{ 

CSA_TRACE_IN ( (CAP_AT, "pi : : copyHook" ) ) ; 

//the cpy hook members 

pvall = c__in. pvall; 

pval2 = c_in.pval2; 

res= c_in.res; 
//MEDSW ArT: Add your code here 

} 

CString pi :: getResult (void) 

{ 

return res; 

} 

void pi :: setResult (CString &foo) 

{ 

res=f oo ; 
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} 



void pl::setA(int foo) 
pvall=foo; 



void pl::setB(int foo) 
pval2=f oo; 



int pi: :getA(void) 

return pvall; 



int pi : :getB (void) 

return pval2; 



//pi END 



1.6.5 Appendix: ATOMIC based Command Object implementation Model (service) 



The business logic component is finally using a command object which implements the 
requested Add command which was initiated by the RemoteControlComponentOCX running 
within the corresponding UI component. 



// 

// the business command object header file 
// 

//Test cmd_cmd . h 

#ifndef CAP_AT_CMD_CMD_Testcmd_H 
# define CAP_AT_CMD_CMD_Testcmd_H 

#include <At/CapAtCmdObjBase . h> 
#include <CsaCommon/CsaDef s . h> 

#ifdef BUILD_CapAtCmdCmdTestcmd 
#define EXP_lMP_CapAtCmdCmdTestcmd 
#else 

#de fine EXP_IMP_CapAt CmdCmdTe s t cmd 
#endif 

class pl ; //ProxyClass 
class rl; //ReturnClass 



CSA_EXPORT 
CSA IMPORT 
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//cl BEGIN 

class EXP_IMP_CapAtCmdCmdTestcmd cl: public CapAtCmdObjBa 
DECLARE_CMD(cl) 
//CMD_EXECUTESYNC( pi, rl ) 

public : 

bool execute ( pi* , rl* )/ 
bool executeSync (pi* ,rl* ); 

} / 

//cl END 
#endif 



// 

// the business command object implementation file ... 



/ /Testcmd_cmd. cpp 

#include <CsaCommon/ CsaStringConvert . h> 
#include n Testcmd_cmd.h u 
#include ». . /ProxRet/Testcmd_j>rox . h M 
#include " . . /ProxRet/Testcmd_ret . h" 
#include <At/CapAtMacDef . h> 

// events 

#include <At/CsaGenericComponent .h> 
//cl BEGIN 

//MEDSW ArT: Hooks for starting and destroying CmdObjects from a 

GenericComponent 
extern "C" int _startupcl (void* ) 

//MEDSW ArT: Initialize your Command Objects here 
return 0 ; 

} 



extern "C" int shutdowncl (void*) 
{ 

//MEDSW ArT: Destroy your Command Objects here 
return 0; 

} 

//cl END 
//Cl BEGIN 

class CsaGenericComponent ; 
IMPLEMENT_CMD (cl, pi, rl) 

bool cl: : execute (pi* aCmdProxyPtr , rl* aCmdRetPtr) 

CSA_TRACE_IN ( (CAPIAT, "cl:: execute " ) ) ; 
//MEDSW ArT: Define your code here 

// business logic is here .... 
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pi *anotherPxy; 

pi *aPxy = NULL; 

static bool suspended=f alse; 

int i; 

bool canceled= false; 
bool delayed= false; 
// events 

CsaGenericComponent * compptr= (CsaGenericComponent *)this- 
>getUserData () ; 

unsigned int timeout; 
timeout = 10000; 

int suml ; 
int sum2 ; 

suml=aCmdProxyPtr->getA() ; 
sum2==aCmdProxyPtr->getB () ; 

// simulate that BE has to ask the client user something and 
// wait for answer! 
if ( (suml==0) ) 
{ 

cout << "cmd delayed!!" << endl; 
delayed=true; 

//AddMoreResult (strjresult, -3, ret, s);// inform client: 
delayed 

aCmdRetPtr->setC (-3) ; 
aCmdRetPtr->reply (true) ; 
bool r; 
while (1) 

{ 

r=this- 

>suspend (timeout, (CapAtCmdProxyBase**) &anotherPxy) ; // blocks here 
if (r) 
{ 

/ / get the proxy data here and delete the proxy 

later on 

cout « "cmd continued! !" << endl; 
CString result; 

result=anotherPxy->getResult () ; 
char vbuf f [2 00] ; 

CSA_CSTRING_TO_ASCII (result , &vbuf f [0] ) ; 
cout << » val= u << vbuff << endl; 
suml = _wtoi (LPCTSTR (result) ) ; 

anotherPxy->destroy () ; 
delayed=f alse; 

//AddMoreResult (str_result 7 -4, ret, s);// inform 

client: suspended 

aCmdRetPtr->setC (-4) ; 

aCmdRetPtr->reply (true) ; 

break; // resume normal operation 

//timed out, so keep in loop 

} 
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for (i=l;i<10;i++) 
{ 

// check if we should suspend 

if (this->isPause (true, (CapAtCmdProxyBase**) &aPxy) ) 
cout << "cmd suspended!!" << endl; 

//AddMoreResult (str_result, -1, ret, s);// inform client 

suspended 

aCmdRetPtr->setC (-1) ; 
aCmdRetPtr->reply (true) ; 
bool r; 
while (1) 
{ 

r=this- 

>isPause (false, (CapAtCmdProxyBase** ) &aPxy, timeout) ; // blocks here' 
if (r) 

{ 

cout << "cmd resumed!!" << endl; 
//AddMoreResult (str_result, -2 , ret, s)/// 
inform client: suspended 

aCmdRetPtr->setC (-1) ; 

aCmdRetPtr->reply (true) ; 

break; // resume normal operation 

} 

//timed out, so keep in loop 

} 

/ / check if we should cancel 
if (this->isTerminated() ) 
{ 

cout << "cmd canceled!!" << endl; 

canceled=t rue ; 

break; 

} 

: :Sleep (1000) ; 
aCmdRetPtr->setC (i*10) ; 
aCmdRetPtr->reply (true) ; 



int sum; 

if (! canceled) 

{ 

^ sum = suml +• sum2 ; // the wole business logic ;-) 

else sum=0; 

aCmdRetPtr->setC (sum) ; 

if ( (this->getNumOfPendingRequest () > 5) !suspended) 

compptr->notifyApplication("xof f ") ; // events 
suspended=t rue ; 

} 

else 

{ 

if ( (this->getMumOfPendingReguest () <= 5) && suspended) 
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compptr->notifyApplication("xon") ; // events 
suspended=f alse; 

} 

} 

aCmdRetPtr->reply (false) ; 

cout << "cl: : execute" << » reuslt = » << sum << endl ; 
return true; 

} 

bool cl: :executeSync (pi* aCmdProxyPtr , rl* aCmdReturnPtr ) 
CSA_TRACE_IN ( (CAP_AT, "cl: : executeSync » ) ) ; 

return true; 

} 

//cl END 
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